Ich muss mittels VBA prüfen, ob eine Datei bereits geöffnet ist. Wenn nicht, dann soll sie geöffnet werden.
Kann mir jemand verraten, wie das geht?
Danke.
Carol
wenn Du nicht im Netz meinst
227. Prüfen ob Datei schon offen
Private Sub Workbook_Open()
For Each x In Workbooks
If x.Name = "test.xls" Then
MsgBox "Datei ist schon geöffnet!"
GoTo weiter
End If
Next
MsgBox "Test wird automatisch geöffnet!"
Workbooks.Open FileName:="C:\Eigene Dateien\Test.xls"
weiter:
End Sub
Gruß Hajo
Das ist auch genau mein Thema. Ich habe dazu noch eine Zusatzfrage?
Kann ich da auch noch eine Variable einbauen, und wenn ja - wie-
Gruß
Peter
Danke für die schnelle Antwort.
Folgefrage: Das prüft jetzt ob eine Datei geöffnet ist und funktioniert auch prima.
Wenn ich nun aber prüfen möchte, ob zwei oder drei Dateien geöffnet sind, wie muss ich das ausbauen?
Bitte entschuldige, dass ich nicht gleich so gefragt habe.
Danke.
Carol
Habs gefunden:
For Each x In Workbooks
If x.Name <> "aaa.xls" Then _
Workbooks.Open "aaa.xls"
If x.Name <> "bbb.xls" Then _
Workbooks.Open "bbb.xls"
Next x
Nochmals Danke für Deine schnelle Hilfe.
Ciao
Carol
da mußt Du schon Deine Frage ganz beschreiben. Wofür Variable??
Gruß Hajo
Ich möchte von meiner geöffneten Datei in eine andere Datei die am Netz liegt, einzelne Tabellenblätter verschieben/kopieren. Diese andere Datei wechselt aber ständig den Namen - abhängig vom Datum (kann ich leider nicht verhindern).
Daher war meine leienhafte Überlegung ich gebe einfach eine Variable ein und kann damit das Problem lösen.
Ich hoffe es ist irgendwie verständlich.
Gruß
Peter
vielleich habe ich es richtig verstanden.
Gruß Hajo
Danke für Deine Hilfe.
Hat wunderbar funktioniert, habe lediglich den Pfad ergänzt und es war OK
Gruß
Peter