|
ok.
Da sowohl a) als auch b) zutreffen könnte, zum reinkommen mal folgendes probieren:
Sub checkFileOpenViaScriptingRuntime()
Dim fso As Object
Dim sPath As String, sFile As String, sFullPath As String
'
sFile = "Mappe1.xlsx" ' <--- anpassen
sPath = "c:\Ordner1\Ordner2\" ' <--- anpassen
sFullPath = sPath & "~$" & sFile ' <--- nicht anpassen
'
With CreateObject("Scripting.FileSystemObject")
MsgBox .FileExists(sFullPath)
End With
End Sub
Hinweis:
Fehlerbehandlung, Optimierung oder sonstig Weiterführendes lassen wir mal aussen vor.
Passe mal sFile und sPath an Deine Umgebung an und führe das Makro aus.
Eine Messagbox sagt dir, ob die Datei geöffnet ist oder nicht.
|