Excel VBA Holen Sie sich den Weg des aktuellen Arbeitsbuchs
'VBA function to retrieve this workbook's full path:
Function FullPath()
With ThisWorkbook
FullPath = .Path & Application.PathSeparator & .FullName
End With
End Function
'--------------------------------------------------------------------
MsgBox FullPath
Excel Hero