Anzeige
Archiv - Navigation
380to384
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
380to384
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige