
MsgBox Application.ActiveWorkbook.Path |
Option Explicit
Sub files()
Dim wb As Workbook
Set wb = ThisWorkbook
With wb
Debug.Print .Path
Debug.Print .FullName
Debug.Print .Name
Debug.Print .Parent.Path
Debug.Print .Parent.Version
Debug.Print .Parent.Name
Debug.Print .Parent.UserName
End With
Set wb = Nothing
End Sub
|
