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

Ist Excel-Datei schon geöffnet?

Forumthread: Ist Excel-Datei schon geöffnet?

Ist Excel-Datei schon geöffnet?
10.02.2004 23:24:20
Tom
Hallo zusammen,
ich habe zwei Fragen:
Wie kann ich mittels VBA feststellen, ob eine bestimmte Excel-Datei schon geöffnet ist?
Und falls ja, wie kann ich dann ein weiteres Sheet einfügen?

Vielen Dank,
Tom
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ist Excel-Datei schon geöffnet?
10.02.2004 23:45:10
FP
Hallo Tom,
z.B. so
Aufruf: If Ist_Mappe_offen("Mappenname.xls") Then 

Function Ist_Mappe_offen(strWBName As String) As Boolean
On Error Resume Next
With Application
.ScreenUpdating = False
With ActiveWorkbook
Workbooks(strWBName).Activate
Ist_Mappe_offen = (ActiveWorkbook.Name = strWBName)
.Activate
End With
.ScreenUpdating = True
End With
End Function

Servus aus dem Salzkammergut
Franz
Anzeige
AW: Ist Excel-Datei schon geöffnet?
10.02.2004 23:58:14
Tom
Vielen Dank.
... oder so...
10.02.2004 23:57:01
Ramses
Hallo
damit kannst du auch prüfen, ob die Datei vielleicht von einem anderen Benutzer geöffnet wurde
Option Explicit

Sub Check_File_Open()
If IsFileOpen("C:\test.xls") = True Then
MsgBox "Die Datei ist bereits geöffnet"
End If
End Sub

Public 

Function IsFileOpen(ByRef FilePath As String) As Boolean
Dim FileNr As Integer
Dim ErrorNr As Long
' Datei testweise öffnen:
On Error Resume Next
'FreeFile ist eine Funktion welche die nächste freie Nummer
'zur Bearbeitung zurückgibt
FileNr = FreeFile
Open FilePath For Input Lock Write As #FileNr
ErrorNr = Err.Number
Close #FileNr
On Error GoTo 0
' Ggf. Fehler verarbeiten:
Select Case ErrorNr
Case 0
'kein Fehler:
Case 70
'Permission denied':
IsFileOpen = True
Case Else
'sonstiger Fehler:
Err.Raise ErrorNr
End Select
End Function

Gruss Rainer
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum