Hallo zusammen!
Ich bin neu hier und hab bis jetzt hauptsächlich Erfahrungen mit Excel VBA gesammelt. Jetzt versuche ich mich ein bißchen an Inventor VBA.
Ich hab ein kleines Tool geschrieben, das eine verknüpfte Excel-Tabelle öffnen und wenn diese wieder geschlossen wird, die Baugruppe aktualisieren soll. Wenn ich in Einzelschritten durchgehe, ergeben sich keine Probleme, wenn ich allerdings das Tool durch ein AutoOpen starten lasse, bekomme ich folgende Fehlermeldung:
"Laufzeitfehler'91: Objektvariable oder With Blockvariable nicht festgelegt."
Die Fehlermeldung bezieht sich auf folgende Zeile: docInventor.Update
Der gesamte Code lautet:
Option Explicit
Public docInventor As Document
Sub AutoOpen()
UserForm1.Show
End Sub
Public Sub Dimension()
'Variablen Deklaration
Dim objExcel As Excel.Application
Dim objWorkbook As Workbook
Dim objWorksheet As WorkSheet
'************************************************************
Set docInventor = ThisApplication.ActiveDocument
'Excel-Dokument öffnen
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Massblatt1.xls")
Set objWorksheet = objWorkbook.ActiveSheet
objExcel.Visible = True
While objExcel.Visible = True
Wend
objExcel.Quit 'ist eigentlich überflüssig
'Baugruppe aktualisieren
docInventor.Update
End Sub
Jetzt meine Frage, weiß jemand warum diese Fehlermeldung ausgelöst wird und was ich besser machen könnte?
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP