excel в autocad

Может поможет:

Private Sub cmdExcelLink_Click()
     Dim ExcelServer As Object
     Dim objWsht As Object
     Dim iRowNum As Integer
     Dim cont As Integer
     Dim Dialog As Object
Set ExcelServer = CreateObject("Excel.Application.9")
ExcelServer.Workbooks.Open ("c:\denver\order.xls")
Set objWsht = ExcelServer.ActiveWorkbook.Worksheets"OrderList")
cont = 0
For iRowNum = 5 To 100
If objWorksheet.Cells(iRowNum, 2).Value <> "" Then
ReDim Preserve ExcelPanel(cont)
ExcelPanel(cont).ElemN = objWorksheet.Cells(iRowNum,2).Value
ExcelPanel(cont).Lenght = objWorksheet.Cells(iRowNum, 3).Value
ExcelPanel(cont).Wight = objWorksheet.Cells(iRowNum, 4).Value
ExcelPanel(cont).Thickn = objWorksheet.Cells(iRowNum, 5).Value
ExcelPanel(cont).Side1 = objWorksheet.Cells(iRowNum, 6).Value
ExcelPanel(cont).Side2 = objWorksheet.Cells(iRowNum, 7).Value
ExcelPanel(cont).Side3 = objWorksheet.Cells(iRowNum, 8).Value
ExcelPanel(cont).Side4 = objWorksheet.Cells(iRowNum, 9).Value
ExcelPanel(cont).Amount = objWorksheet.Cells(iRowNum,10).Value
cont = cont + 1
End If
Next
CreatePanel
End Sub