Überprüfung geladener Dateien

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Überprüfung geladener Dateien
von: Dieter
Geschrieben am: 23.06.2002 - 16:59:12

Hallo User
Ich möchte aus einer Arbeitsmappe heraus eine Tabelle einer anderen Arbeitsmappe zum Datenimport öffnen.
Ist die Datei aber schon geöffnet gibt es eine Fehlermeldung.
Wie kann ich mittels VBA Überprüfen ob die Datei geladen ist
(z.B. "Tab1" der Mappe "Wartung")und diese bei Notwendigkeit öffnen bzw. wenn schon geöffnet diese aktivieren??


nach oben   nach unten

Re: Überprüfung geladener Dateien
von: Hajo_Zi
Geschrieben am: 23.06.2002 - 17:03:54

Hallo Dieter

mal als Ansatz

226. 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

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Überprüfung geladener Dateien"