Überprüfen ob Datei geöffnet ist mit VBA

Bild

Betrifft: Überprüfen ob Datei geöffnet ist mit VBA
von: Domi
Geschrieben am: 20.02.2005 08:41:12
Gute Morgen Zusammen,
Wie kann ich in VBA überprüfen ob eine Datei bereits geöffnet ist ?


Sub Datei()
Dim jj as String
JJ = "Test.xls"
Workbooks.Open Filename=jj
' nun werden irgendwelche Berechnungen ausgeführt......
If jj = GEÖFFNET then f= 1 Else F = 99   '??Befehl für Abfrage geöffnet??
End Sub

vielen Dank für eure Hilfe
Freundliche Grüsse
Domi
Bild

Betrifft: AW: Überprüfen ob Datei geöffnet ist mit VBA
von: Josef Ehrensberger
Geschrieben am: 20.02.2005 09:07:44
Hallo Domi!
Vielleicht so.

Sub Datei()
Dim jj as String
Dim wb As Workbook
chkOpen As Boolean
chkOpen = False
JJ = "Test.xls"
For Each wb In Application.Workbooks
If wb.Name = JJ Then chkOpen = True: Exit For
Next
If Not chkOpen Then Workbooks.Open Filename=JJ
' nun werden irgendwelche Berechnungen ausgeführt......
End Sub


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Bild

Betrifft: Genau das habe ich gesucht! vielen Dank! o.T
von: Domi
Geschrieben am: 20.02.2005 09:33:31
--
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Schleife in UserForm"