Datei öffnen

Forumthread: Datei öffnen
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Datei öffnen

Datei öffnen

18.11.2003 13:36:13

Klaus

Hallo Excel-Freunde
Ich will mehrere Dateien in VBA ansprechen. Normalerweise sind diese geöffnet. Falls eine Datei nicht geöffnet ist soll diese aus dem aktuellen Verzeichnis geöffnet werden. Wir kann ich die Frage stellen: Ist die Datei geöffnet?
Grüße
Klaus

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datei öffnen

18.11.2003 13:46:01

WernerB.
AW: Datei öffnen

18.11.2003 18:36:00

Klaus

AW: Datei öffnen

18.11.2003 13:46:01

WernerB.

Hallo Klaus,

das kannst Du z.B. mit einer benutzerdefinierten Funktion machen:


Function MappeOffen(MappeName As String) As Boolean
Dim StName As String
On Error GoTo Nonexistent
StName = Workbooks(MappeName).Name
MappeOffen = True
Exit Function
Nonexistent:
MappeOffen = False
End Function


Sub DateiZustand1()
Dim DatNam As String
DatNam = "MappeA.xls"
If MappeOffen(DatNam) = True Then
MsgBox "Datei ist geöffnet !"
Else
MsgBox "Datei ist nicht geöffnet !"
End If
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).

AW: Datei öffnen

18.11.2003 18:36:00

Klaus

Danke WernerB für Deinen schnellen Rat.
Klaus

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!