Перенос данных из Excel в VB6

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

Здравствуйте, подскажите пожалуйста, как можно считать данные из Excel таблицы в двумерный массив в VB6

Решение задачи: «Перенос данных из Excel в VB6»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim MyXL As Object 'объявляем как объект (книгу xls)
Dim xlSheet As Object 'объявляем как объект Excel Лист
 
Private Sub Command4_Click()
Dim a(120, 6), i As Integer, j As Integer
 Set MyXL = GetObject("D:\my_doc\Книга1.xls") 'путь к файлу
MyXL.Application.Visible = False '
 MyXL.Parent.Windows(1).Visible = True
 Set xlSheet = MyXL.WorkSheets(1) 'первый лист
 For i = 1 To 120
      For j = 1 To 120
 a(i,j) = xlSheet.Cells(i, j) 'если таблица нач. с А1
      Next j
    Next i
 MyXL.Save
MyXL.Application.Quit
Set MyXL = Nothing
End Sub