Laufzeitfehler 91
06.05.2006 23:52:58
masahiro
Ich habe folgendes Problem: Ich erhalte beim öffnen meiner Arbeitsmappe die Fehlermeldung
Laufzetfehler 91
Objektvaraible oder With-Blockvariable nicht festgestellt
Meine Arbeitsmappe war beim User zuvor abgeschmiert, nachdem ein Makro auf eine Html-datei zugegriffen hat. Nun ist es so, dass ich nach dem Öffnen des Dokuments, obige fehlermeldung erhalte, ich dann aber nach klicken des 'Beenden'-Buttons meine Tabellenblätter nicht sehen kann. auch sind alle Menüleisten nicht anwählbar. Komischer weise kann ich aber im VBA-Editor auf alle zum Dokument gehöreden Daten zugreifen. Somit ist das Dokument schon geöffnet, allerdings kann ich nicht mit diesem arbeiten.
Habe die Arbeitsmappe geschützt, ebenso das VBA-Project, vielleicht spielt das ja irgendeine Rolle.
Wie kann ich das Problem abstellen? Was hat sich geändert, das das Tool vorher einwandfrei lief, und nach dem Zugriff, auf das HTML-Dokument (wird lediglich geladen code weiter unten) Probleme bereitet? Auch dieser Zugriff wurde vorher einige male getestet, und machte keine Probleme.
Code für das Öffnen der Html-Datei:
Option Explicit
Declare
Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub Effi_prod_kpi_drucken()
Dim Linie As String
Dim datum As String
Dim schicht As String
Dim Datei As String
Linie = InputBox("xxx")
datum = InputBox("xxxx")
schicht = InputBox("xxxx")
Datei = "\\Pfad" & Linie & "_" & datum & "_" & schicht & ".htm"
ShellExecute Application.hwnd, "Open", Datei, _
vbNullString, vbNullString, vbNormalFocus
End Sub