[Theodor]

Как можно из файла Excel из определенного листа выдрать данные в VBA AutoCad

[Тензор]

Когда-то писал похожее, но на VB6. Здесь происходит получение данных из определенных ячеек определеного листа в textbox'ы на форме.

Код:

[Выделить все]

Private Sub Command1_Click()
Dim ex As Excel.Application
Dim book As Excel.Workbook
Dim sheet As Excel.Worksheet
Set ex = New Excel.Application
Set book = ex.Workbooks.Open("D:\PROF_RES.xls")
ex.Visible = True
ex.Worksheets(Лист1).Select
For i = 0 To 34
Text1(i).Text = ex.Worksheets(1).Cells(1 + i, 5).Value
Text2(i).Text = ex.Worksheets(1).Cells(1 + i, 7).Value
Text3(i).Text = ex.Worksheets(1).Cells(1 + i, 9).Value
Next i
End Sub