Копирование данных с ексель в текстовый файл - VB

Формулировка задачи:

Доброй ночи. Помогите плиз понять в чем ошибка. Пишу прогу на VB 6.0, не могу с открытой книги скопироват определенный диапазон ячеек с данными в текстовый файл. Пишет ошибку Object required. Ниже код:

Private Sub Command1_Click()
    Dim oExcel As Object
    Dim oSheet
    Dim uT As Integer
Set oExcel = CreateObject("Excel.Application")           ' создаю объект ексель
oExcel.Workbooks.open("D:\Primer\2.xls").Activate      ' открываю файл
oExcel.Visible = True                                              ' отображаю
Set oSheet = oExcel.Workbooks("2.xls").WorkSheets(1)
uT = 11
oSheet.Range("H" & uT).Select                                'выделяю ячейку
oSheet.Cells(Rows.Count, "H").End(xlUp).Row             'тут хочу найти последнюю пустую ячейку, но мне выдает ошибку

Решение задачи: «Копирование данных с ексель в текстовый файл»

textual
                            Листинг программы 
                        
                            oSheet.Range("H" & uT & ":" & "H" & n).Copy

Оцени полезность:

13 голосов , оценка 4.077 из 5

Похожие ответы