kann mir bitte jemand helfen.
Ich möchte prüfen, ob eine Datei geöffnet ist. Wenn ja, dann soll sie aktiviert (in den Vordergrund gestellt) werden.
Mein Code sieht jetzt so aus (habe ich bei herber gefunden).
Die Codezeile Workbooks(sFile).open produziert einen Laufzeitfhler 9.
Sub TestFileOpen()
Dim iOpen As Integer
Dim sFile As String
sFile = "C:\TMP\Pflegeurlaub-Test\Pflegeurlaub-Antrag.xls"
If sFile = "" Then Exit Sub
iOpen = TestOpen(sFile)
Select Case iOpen
'Case 0: MsgBox "Datei " & sFile & " ist frei"
Case 0: Workbooks.Open (sFile)
Case 1: MsgBox "Datei " & sFile & " ist geöffnet"
Workbooks(sFile).Activate
Case 2: MsgBox "Datei " & sFile & " wurde nicht gefunden"
End Select
End Sub
Private Function TestOpen(sPath As String) As Integer
If Dir(sPath) = "" Then
TestOpen = 2
Else
On Error GoTo ERRORHANDLER
Open sPath For Random Access Read Lock Read Write As #1
Close #1
End If
ERRORHANDLER:
If Err = 70 Then TestOpen = 1
End Function
Danke im Voraus!