---

hallo zusammen,
vielleicht hat jemand einen tipp.
ich möchte  gerne daten aus einer excel tabellen in autocad übertragen.
diese möchte ich dann mittels vba bearbeiten und anschließend als koordinaten in autocad darstellen.
danke im voraus.
gruß

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi & Willkommen,

hier ein Beispiel von Acad aus Excel:

Code:

---

Sub test()
  Const xlup& = -4162
  Dim xlApp As Object, xlWB As Object
  Dim i&, acP#(2)
  Set xlApp = CreateObject("excel.application")
  Set xlWB = xlApp.workbooks.Open("d:\mappe1.xls")
  With ThisDrawing.ModelSpace
      For i = 1 To xlWB.Sheets(1).Cells(xlApp.Rows.Count, 1).End(xlup).Row
        'spalte A [x]
        acP(0) = xlWB.Sheets(1).Cells(i, 1)
        'Spalte B [y]
        acP(1) = xlWB.Sheets(1).Cells(i, 2)
        'Spalte C [z]
        acP(2) = xlWB.Sheets(1).Cells(i, 3)
        .AddPoint acP
        '.AddText CStr(acP(0)) & "/" & CStr(acP(1)) & "|" & CStr(acP(2)), acP, 0.25
    Next
  End With
  ZoomExtents
  'xlApp.Visible = 1
  xlApp.Quit
  Set xlApp = Nothing: Set xlWB = Nothing
End Sub

---

Und hier noch eins andersrum - von Excel nach Acad - und mit early Binding: http://ww3.cad.de/foren/ubb/Forum110/HTML/000317.shtml#000001

Gruss Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP