Hilfe bei Code
01.07.2016 13:38:15
Thomas
ich hab mich schon viel umgeschaut und gelesen und bin über diesen Code gestolpert und will mich in dem Bereich Excel und ACad (2000) mehr beschäftigen.
Nun kommt die Meldung Objektvariable oder Wiht- Blockvariable nicht festgelegt.
~
Function fktExcel()
Dim oExc As Object, objKreis As AcadCircle
Dim dblZen(2) As Double, dblRadius As Double
Dim i As Long
Dim ThisDrawing As Object
Set oExc = CreateObject("Excel.Application")
oExc.Visible = True
oExc.Workbooks.Open Filename:= _
"C:\Users\Das ist meiner\Documents\ExcelzuCad.xlsm"
For i = 2 To 1000
dblZen(0) = oExc.Range("a" & i).Value
dblZen(1) = oExc.Range("b" & i).Value
dblZen(2) = 0
dblRadius = oExc.Range("c" & i).Value
If dblRadius = 0 Then Exit For
Set objKreis = ThisDrawing.ModelSpace.AddCircle(dblZen, dblRadius)
~Ich hoffe es kann mir jemand weiter helfen oder hat eine andere Möglichkeit.
Vielen Dank schon mal und allen ein schönen Tag!
Gruß Thomas