获取文件路径：

Public Sub 文件路径()
Dim strFolder As String
'差异：msoFileDialogFilePicker
With Application.FileDialog(msoFileDialogFilePicker)

'文件对话框的题目，根据个人情况进行设定
.Title = "Select File"

'默认打开的文件对话框路径，此处是d盘
.InitialFileName = "d:\"
If .Show Then

'获取到路径
strFolder= .SelectedItems(1)
End If
End With
End Sub

获取文件夹路径：

Public Sub 文件夹路径()
Dim strFolder As String
'差异：msoFileDialogFolderPicker
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Select Folder"
.InitialFileName = "d:\"
If .Show Then
strFolder= .SelectedItems(1)
End If
End With
End Sub

获取文件路径：Public Sub 文件路径()    Dim strFolder As String    '差异：msoFileDialogFilePicker    With Application.FileDialog(msoFileDialogFilePicker)        '文件对话框的题目，根据个人情况进行设定        .Title = "Select F...