VBA Workbooks.Open, aber ohne Programstart

Computer: Software & Programmierung Office Software
1

Hallo zusammen,

Ich öffne Excel-Mappen mit
Workbooks.Open Filename:=(Eintrag), ReadOnly:=True ,
um sie dann per Excel zu analysieren.
Das klappt mit dem meisten Excel-Mappen auch ganz prima.

Wenn eine Mappen aber ein SUB enthält, das zum Zeitpunkt Workbook Open
gestartet wird, gibt es Probleme.

Wie kann ich solche Mappen öffnen, ohne dass dort ein Programm startet?

Gruß JoKu

2

Ich öffne Excel-Mappen mit
Workbooks.Open Filename:=(Eintrag), ReadOnly:=True ,
um sie dann per Excel zu analysieren.
Das klappt mit dem meisten Excel-Mappen auch ganz prima.

Wenn eine Mappen aber ein SUB enthält, das zum Zeitpunkt
Workbook Open
gestartet wird, gibt es Probleme.

Wie kann ich solche Mappen öffnen, ohne dass dort ein Programm
startet?

Hallo Jochen,

vielleicht so:

Application.EnableEvents =False
Workbooks.Open …
Application.EnableEvents =True

Gruß
Reinhard

3

Nachtrag

Application.EnableEvents =False
Workbooks.Open …
Application.EnableEvents =True

Hallo Jochen,

die geöffnete Mappe kann ja noch andere Ereigniscodes haben, BeforeClose, BeforeSave usw.
Die mußte auch „ausschalten“.

Gruß
Reinhard

4

Hi,

Application.EnableEvents =False
Workbooks.Open …
Application.EnableEvents =True

Funktioniert im Prinzip Danke!
Damit ist aber das On Error GoTo, was ich vor/um sas open eingebaut habe auch abgeschaltet.

Bei einem Error, z. B. weil eine Excelmappe ein Passwort fordert, ich das aber abbreche, gibt es einen Absturz.
Diese Mappen muss ich halt vorher abfangen.

Gruß
Jochen

5

Application.EnableEvents =False
Workbooks.Open …
Application.EnableEvents =True

Funktioniert im Prinzip Danke!
Damit ist aber das On Error GoTo, was ich vor/um sas open
eingebaut habe auch abgeschaltet.

Bei einem Error, z. B. weil eine Excelmappe ein Passwort
fordert, ich das aber abbreche, gibt es einen Absturz.
Diese Mappen muss ich halt vorher abfangen.

Sub tt()
Application.EnableEvents = False
On Error GoTo hell
MsgBox 1 / 0 ’ Also wenn das keinen Fehler ergibt :smile:)
Application.EnableEvents = True
Exit Sub
hell:
MsgBox „Hallo Jochen, wo/wie schaltet da EnableEvents „„On Error““ ab?“
End Sub

Übrigens, hast du auch mappen mit „AutoOpen“ ?

Gruß
Reinhard

6

Hmmm, dann muss ich nochmal nachsehen, was da genau passiert ist.

Gruß JK

7

Hmmm, dann muss ich nochmal nachsehen, was da genau passiert
ist.

Hallo,

ja, mach das, überprüfe was der Unterschied ist zwischen denen die sich problemlos öffnen lassen und denen wo es Probleme gibt.

Und Application.Enableevents steuert nur ob auf Ereignisse wie z.B. das Öffnen einer Mappe reagiert werden soll.
Das hat mit On Error nix zu tun *denk*

Gruß
Reinhard