CODEWITHSUNDEEP
excelvbaautocad
K Bizzy
K Bizzy

Reputation: 85

AutoCAD to Excel

Hi How can I access a spreadsheet from AutoCad and take a value from there and use it on AutoCAd Here is my code but it does not get the value , it's always empty. Don't know what's wrong

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

Upvotes: 0

Views: 1339

Answers (1)

braX
braX

Reputation: 11755

I just tested this and it works just fine for me:

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

If it doesnt work for you, then the problem is your filename.

Upvotes: 3

Related Questions