Plötzlicher Runtime-error: 91 bei Makroausführung
28.06.2019 07:46:07
Mathias
bei der Verwendung eines Excel Tools erscheint seit heute ein Fehlercode, sobald ich das Makro ausführe. Der Code lautet:
Run-time error: 91: Object variable or With block variable not set.
Allerdings hat sich weder im Makro noch an der Excel als solche irgendetwas geändert. Auch meine früheren Versionen des Tools werfen nun alle den gleichen Fehler aus. Ich vermute also, dass der Fehler eher eine lokale Ursache in meiner Maschine hat. Dennoch kopiere ich euch folgend einmal den entsprechenden Code-Auszug. Diesen habe ich jedoch nicht selbst geschrieben, sondern aus dem solverstudio Forum entnommen. Der Code erlaubt es, die solverstudio Anwendung über das Makro anzusteuern.
'On Error Resume Next
Application.EnableEvents = True
'Get the Ribbon as an accessiblity object and the
Dim RibbonPropPage As IAccessible
' Get and then change to Data tab
' This may fail on non-English systems; see http://www.wordarticles.com/Shorts/RibbonVBA/RibbonVBADemo.php
Set RibbonPropPage = GetAccessible(CommandBars("Ribbon"), 37, CommandBars("Data").NameLocal)
RibbonPropPage.accDoDefaultAction CHILDID_SELF
Application.Wait DateAdd("s", 1, Now)
' Get and then click to Solve Model button
Set RibbonPropPage = GetAccessible(CommandBars("Ribbon"), 43, "Solve Model")
RibbonPropPage.accDoDefaultAction CHILDID_SELF
Application.Calculation = xlCalculationAutomatic
Konkret erscheint der Fehler beim Ausführen der Zeile:
RibbonPropPage.accDoDefaultAction CHILDID_SELF
Für jede Hilfe wäre ich wirklich unendlich dankbar.
Besten Gruss,
Mathias
Anzeige