Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kontrolle ob Datei offen ist

Forumthread: Kontrolle ob Datei offen ist

Kontrolle ob Datei offen ist
07.08.2003 08:33:25
Dani
Hallo Leute
Hab da eine kleine Frage an die Profis,
Wie kann ich via VBA kontrollieren ob eine gewisse Datei offen ist.
Wenn ja das folgnender Befehl ausgefürht wird -->Windows("Dateiname").Activate
Wenn nein das dieser Befehl ausgeführt wird --> Workbooks.Open FileName:= _
"\\Dateiname" _
, UpdateLinks:=3
Danke für eure Hilfe
Daniel B.
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kontrolle ob Datei offen ist
07.08.2003 08:44:30
WernerB.
Hallo Dani,
dazu kann ich Dir dieses Makro (mit zugehöriger Funktion) empfehlen:

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 DateiZustand()
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.

Anzeige

Beliebteste Forumthreads (12 Monate)

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