Hallo, Gemeinde.
Ich habe vor mir drei Excel-Dateien mit den fiktiven Namen HYPER, MAKRO und DATEN. HYPER enthält nichts außer einem Hyperlink (Verweis auf die MAKRO); MAKRO enthält nur ein Makro, das die DATEN öffnet. In DATEN liegt eine Ereignisprozedur unter Workbook_Open():
Private Sub Workbook_Open()
'jedemengecode …
Wortbooks.Open Filename:=„HauMichBlau.xla“
'jedemengecode …
End Sub
Öffnet man die MAKRO, so wird die Daten geöffnet und der Code in obiger Prozedur fehlerlos ausgeführt.
Öffnet man die HYPER und klickt den Link an, so wird die MAKRO geöffnet und der Code in obiger Prozedur liefert den Fehler 1004: „Die Methode ‚Open‘ für das Objekt ‚Workbooks‘ ist fehlgeschlagen“.
Alle Namen und Verweise sind syntaktisch korrekt, kein Zeiger zeigt in den Wald, alle Dateien sind da, wo sie sein sollen. Trotzdem knallt es - wohlgemerkt nur beim Aufruf über den Hyperlink! - so, wie oben beschrieben.
Ideen? Vorschläge? Zu Hülf!
Gruß CBB
Hallo Chief,
Private Sub Workbook_Open()
'jedemengecode …
Wortbooks.Open Filename:=„HauMichBlau.xla“
'jedemengecode …
End Sub
bastle sowas im Editor und kopier’s hier rein.
Direkt hier schreiben birgt Schreibfehlergefahr wie hier geschehen, was zusätzlich verwirrt.
Öffnet man die MAKRO, so wird die Daten geöffnet und der Code
in obiger Prozedur fehlerlos ausgeführt.
Öffnet man die HYPER und klickt den Link an, so wird die MAKRO
geöffnet und der Code in obiger Prozedur liefert den Fehler
1004: „Die Methode ‚Open‘ für das Objekt ‚Workbooks‘ ist
fehlgeschlagen“.
Sonst steht da im Fehlerfenster nix? Stehen alle drei Dateien im gleichen Verzeichnis? *rat*
Gruß
Reinhard
die Versionen noch …
… hatte ich glatt vergessen *schäm* *schrumpf
„Betriebssystemname Microsoft Windows XP Professional
Version 5.1.2600 Service Pack 3 Build 2600“
„Application name Microsoft Excel Version 11.0 Build 8328“
Gruß CBB
Hallo.
bastle sowas im Editor und kopier’s hier rein.
Direkt hier schreiben birgt Schreibfehlergefahr wie hier
geschehen, was zusätzlich verwirrt.
Hast recht. Ich habe die Fehlerzeile fett gemacht; der Rest ist soweit i.O.
Private Sub Workbook\_open()
' laber laber laber
**Workbooks.Open ("C:\Program Files\Common Files\HauMichBlau.xla")**
' laber laber laber
End Sub
Sonst steht da im Fehlerfenster nix?
Stimmt.
Stehen alle drei Dateien im gleichen Verzeichnis?
Stimmt.
Danke nochmals.
CBB
Pauschal ist Dein Problem nicht so einfach zu lösen. Musst mal step-by-step debuggen und wenn du an den Punkt kommst, wo es klemmt, Dir die Werte der Variablen anschauen.
Was mir spontan noch so einfällt:
- Pfad, Datei-Name und -Endung der aufgerufenen Datei stimmt wirklich?
- VBA-Sicherheitseinstellungen auf niedrigste Stufe?
- Ist eine der beteiligten Dateien vielleicht passwortgeschützt?