Перенос данных из 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д