AutoCAD到Excel

Question

嗨，我如何从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

我刚刚测试了这个，对我来说效果很好：

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

如果它对你不起作用，那么问题是你的文件名。