prüfen ob geöffnet

[Christian Merz]

Hallo ng!

Kann man per if-bedingung prüfen ob eine datei geöffnet
ist?

danke im vorraus

mfg

christian

[stefan onken]

hallo Christian,
meinst du so?

Function IstMappeGeoeffnet(datei) As Boolean
Dim frfile
frfile = FreeFile
On Error Resume Next
Open datei For Binary Access Read Lock Read As #frfile
Close #frfile
If Err.Number <> 0 Then
IstMappeGeoeffnet = True
Else
IstMappeGeoeffnet = False
End If
End Function

Sub test()
If IstMappeGeoeffnet("D:\test\test2.xls") Then
MsgBox "Datei ist bereits geöffnet"
End If
End Sub

siehe auch http://tinyurl.com/2ubok

Gruß
stefan

>-----Originalnachricht-----

>.
>

[Melanie Breden]

Hallo Christian,

Christian Merz schrieb:

> Kann man per if-bedingung prüfen ob eine datei geöffnet
> ist?

Füge folgende benutzerdefinierte Funktion in ein Standardmodul deiner Arbeitsmappe ein:

Public Function IsWorkbookOpen(strWB As String) As Boolean
On Error Resume Next
IsWorkbookOpen = Not Workbooks(strWB) Is Nothing
End Function

Die Funktion kann aus anderen Prozeduren aufgerufen werden:

Sub test()
If IsWorkbookOpen("Dateiname.xls") Then
MsgBox "Datei ist geöffnet"
Else
MsgBox "Datei ist nicht geöffnet"
End If
End Sub

Oder aber auch als Formel in einer Zelle zu verwenden:

=IsWorkbookOpen("Dateiname.xls")

--
Mit freundlichen Grüssen

Melanie Breden
- Microsoft MVP für Excel -

http://excel.codebooks.de (Das Excel-VBA Codebook)
#Excel-Auftragsprogrammierung#