Workbook.Path
19.10.2021 11:06:40
Steffen
Sub und
Function aus einem anderen Forum Thread entnommen, stecke aber gerade fest, er will auf biegen und brechen nicht den Workbook.Path übernehmen, hier mein Code
Sub Sample()
pfad = ThisWorkbook.Path & "B&O Manager.xlsm"
Dim Ret
Ret = IsWorkBookOpen & pfad
If Ret = True Then
MsgBox "File is open"
Else
MsgBox "File is Closed"
End If
End Sub
Function IsWorkBookOpen(FileName As String)
Dim ff As Long, ErrNo As Long
On Error Resume Next
ff = FreeFile()
Open FileName For Input Lock Read As #ff
Close ff
ErrNo = Err
On Error GoTo 0
Select Case ErrNo
Case 0: IsWorkBookOpen = False
Case 70: IsWorkBookOpen = True
Case Else: Error ErrNo
End Select
End Function
Wäre für Hilfe dankbar.
Lg Steffen