Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Inhaltsverzeichnis

Datei öffnen

Datei öffnen
18.11.2003 12: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
Anzeige
AW: Datei öffnen
18.11.2003 12: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).
Anzeige
AW: Datei öffnen
18.11.2003 17:36:00
Klaus
Danke WernerB für Deinen schnellen Rat.
Klaus

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige