Перенос данных из 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

15   голосов , оценка 3.933 из 5