| |
|
|
| | Есть вот такая функция при создании нового листа Excel старый удаляется и создается новый . А как очистить ячейки от данных перед записью новых в заданом диапазоне?
Public Function DeleteFiles()
On Error GoTo er
Dim retval As Long ' return value
retval = DeleteFile(Forms!Price!путь к файлу)
Exit Function
End Function | |
| |
| |
| |
|
|
| | Хм.Не получается . Может у кого есть какие мысли по моей проблеме. | |
| |
| |
| |
|
|
| | - запустите эксель;
- включите "запись макроса";
- выполните манипуляции, которые Вам нужны;
- остановите запись макроса;
- войдите в экселевский ВБА - вот он код - тащите себе.
нужны конечно некоторые ухищрения. | |
| |
| |
| |
 3 Кб. |
|
| | Выделил-скопировал -вставил-вылазит ошибка . Где глюк ?
Public Function ClearFiles()
On Error GoTo er
Range("C12:G19").Select
Selection.ClearContents ("c:\1.xls")
Exit Function
er:
MsgBox "Error №" & Err.Number & " " & Err.Description, vbCritical, "Внимание"
End Function | |
| |
| |
| |
|
|
| | не, ну нужно открывать файл
...
Dim xlApp As Object, sFN As String
'открываем файлик и считываем из него значения
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
|
| |
| |
| |
| |
|
|
| |
With xlApp
.Workbooks.Open sFN
.sheets(1).Select
Range("C12:G19").Select
....
End With
|
Не указан объект для которого выполняется Range("C12:G19").Select | |
| |
| |
| |
|
|
| | у меня тоже самое...
решил вот попробовать. | |
| |
| |
| |
|
|
| | Нет мне нужно перед записью очистить данные но оставить шапку.
Вообщем файл открывается закрывается но указанный диапазон не удаляется
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 | |
| |
| |
| |
|
|
| | .Sheets(1).Range("C12:G19").Select | |
| |
| |
| |
|
|
| | а если так то выделяется диапазон с с12 по g19
.Sheets(1).Range("C12:G19").Select.Selection.clear | |
| |
| |
