ник: Дрюня
не, ну нужно открывать файл
...
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
|