Ich hab ein kleines Tool geschrieben, das eine verknüpfte Excel-Tabelle öffnet. Mit einer bidirektionalen Verknüpfung zurück zu ACAD. Das komische ist, dass dieses Tool mit den meisten Rechnern (XP/Office - Excel 9-11) funktioniert. Aber doch nicht bei allen. Denn bei einigen Rechnern bekomme ich den Fehler:
"Laufzeitfehler'91: Objektvariable oder With Blockvariable nicht festgelegt."
Die Fehlermeldung bezieht sich auf folgende Zeile:
Set XLS_Sheet = XLS_WB.Sheets.Add(, , 1)
Anbei noch der ganze Block!
'Excel starten
Set XLS_WB = StartExcel(True)
RowAnz = 0
For Ish = 0 To UBound(SheetNames)
If OneSheet = 0 Then
Set XLS_Sheet = XLS_WB.Sheets.Add(, , 1)
XLS_Sheet.name = SheetNames(Ish)
RowAnz = 0
Else
Set XLS_Sheet = XLS_WB.ActiveSheet
End If
For row = 0 To UBound(SheetDatas(Ish))
For col = 0 To UBound(SheetDatas(Ish)(row))
DS(0) = SheetDatas(Ish)(row)(col)(0)
DS(1) = SheetDatas(Ish)(row)(col)(1)
If row = 0 Then
With XLS_Sheet.Cells(RowAnz + row + 1, col + 1)
.NumberFormat = "@"
End With
With XLS_Sheet.Cells(RowAnz + row + 2, col + 1)
.NumberFormat = "@"
End With
If col = 0 And OneSheet = -1 Then
XLS_Sheet.Cells(RowAnz + row + 1, col + 1) = SheetNames(Ish)
Else
XLS_Sheet.Cells(RowAnz + row + 1, col + 1) = DS(0)
End If
XLS_Sheet.Cells(RowAnz + row + 2, col + 1) = DS(1)
Else
With XLS_Sheet.Cells(RowAnz + row + 2, col + 1)
.NumberFormat = "@"
End With
XLS_Sheet.Cells(RowAnz + row + 2, col + 1) = DS(1)
End If
Next col
Next row
RowAnz = RowAnz + UBound(SheetDatas(Ish)) + 3
Next Ish
Set XLS_WB = Nothing
End Function
Bitte dringend um Hilfe!!!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP