代码示例：
Sub showpath()
'1、获取当前文档的路径和文件名
aa = ThisWorkbook.Path '当前文件的路径
bb = ThisWorkbook.Name '当前文件的名称
cc = ThisWorkbook.FullName '当前文件的路径 名称
'2、在本示例中，EXCEL打开文件对话框，允许用户选择一个或多个文件，选中这些文件之后，逐条显示每个文件的路径
Dim ingcount As Long
With Application.FileDialog(msoFileDialogOpen) '提供文件对话框，允许用户打开文件
.AllowMultiSelect = True '允许用户从文件对话框中选择多个文件，false表示不允许选择多个文件
.Show '显示对话框
For ingcount = 1 To .SelectedItems.Count '从1到选中的文件数目循环
MsgBox .SelectedItems(ingcount) '显示文件的全路径
Next ingcount
End With
End Sub
补充：FileDialog说明
'提供文件对话框，返回一个FileDialog对象，该对象代表文件对话框的实例。
语法: expression.FileDialog (FileDialogType)
说明:
'expression 必需。该表达式返回"应用于"列表中的对象之一。
'FileDialogType 必需。MsoFileDialogType类型，文件对话框的类型。
MsoFileDialogType可以为以下常量之一:
msoFileDialogFilePicker 允许用户选择文件
msoFileDialogFolderPicker 允许用户选择一个文件夹
msoFileDialogOpen 允许用户打开文件, 用EXCEL打开
msoFileDialogSaveAs 允许用户保存一个文件
