Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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.

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige