AutoCAD到Excel

嗨如何从AutoCad访问电子表格并从中获取值并将其用于AutoCAd这是我的代码，但它没有得到值，它总是空的。 不知道什么是错的

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

我只是testing这个，它对我来说工作得很好：

 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 

如果它不适合你，那么问题是你的文件名。