ник: час
А что это может быть:
при поиске последней строки
Dim XL_TXT As String ' строка текста считано из листа
Dim END_TXT As Integer ' ПОСЛЕДНЯЯ СТРОКА листа
Set xlBook = xl.Workbooks.Open(GLB_PATH_TXT)
Set xlSheet = xl.Worksheets("Page1")
xlSheet.Activate
xl.Application.Visible = True ' False
xl.UserControl = True
col = 3
END_TXT = ActiveSheet.UsedRange.row + ActiveSheet.UsedRange.Rows.Count - 1
получаем сообщение
Object requered
|