回复 3楼 Hjfvb6
Private Sub test()
ActiveSheet.Cells(1, 1).Value = Application.Path
ActiveSheet.Cells(2, 1).Value = ThisWorkbook.Path
ActiveSheet.Cells(3, 1).Value = Application.DefaultFilePath
ActiveSheet.Cells(4, 1).Value = Application.ActiveWorkbook.Path
ActiveSheet.Cells(5, 1).Value = Application.ActiveWorkbook.FullName
ActiveSheet.Cells(6, 1).Value = Application.ActiveWorkbook.Name
End Sub