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

Ist Excel-Datei schon geöffnet?

Forumthread: Ist Excel-Datei schon geöffnet?

Ist Excel-Datei schon geöffnet?
10.02.2004 22: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 22: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 22:58:14
Tom
Vielen Dank.
... oder so...
10.02.2004 22: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
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige