AutoCAD nach Excel

Question

Hallo Wie kann ich eine Tabelle von AutoCad zugreifen und einen Wert von dort nehmen und es auf AutoCAd verwenden Hier ist mein Code, aber es bekommt nicht den Wert, es ist immer leer. Sie wissen nicht, was

Sub move() 
Dim EXCELApplication As Object 
Dim ExcelWorksheet As Object 

Set EXCELApplication = CreateObject("Excel.Application") 
EXCELApplication.workbooks.Open AcadToExcel 
EXCELApplication.Visible = True 
Set ExcelWorksheet = EXCELApplication.ActiveWorkbook.Sheets("Sheet1") 

modelsize = ExcelWorksheet.Cells(21, 3).Value 

Size = modelsize 

End Sub 

Answer 1

falsch ich das gerade getestet und es funktioniert für mich ganz gut:

Public Sub GetFromExcel() 
    Dim sFile As String 
    sFile = "C:\Users\" & Environ$("Username") & "\Desktop\Test2.xlsx" 
    Dim EXCELApplication As Object 
    Dim ExcelWorksheet As Object 
    Dim sValue As String 

    Set EXCELApplication = CreateObject("Excel.Application") 
    EXCELApplication.workbooks.Add sFile 
    EXCELApplication.Visible = True 
    Set ExcelWorksheet = EXCELApplication.ActiveWorkbook.Sheets("Sheet1") 

    sValue = ExcelWorksheet.Range("A1").Value 

    MsgBox sValue 

End Sub 

Wenn es Arbeit für Sie tut, dann ist das Problem der Dateiname.