ник: k@s
Нет мне нужно перед записью очистить данные но оставить шапку.
Вообщем файл открывается закрывается но указанный диапазон не удаляется
Public Function ClearFiles()
Dim xlApp As Object, sFN As String
sFN = ("c:\1.xls")
'открываем файлик и считываем из него значения
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
With xlApp
.Workbooks.Open sFN
.Sheets(1).Select
Range("C12:G19").Select
End With
L_Exit:
On Error Resume Next
xlApp.ActiveWorkbook.Close False
xlApp.Quit
Set xlApp = Nothing
Exit Function
L_Err: MsgBox Err.Description & " (" & Err.Number & ")", vbExclamation: GoTo L_Exit
End Function