win10系统下office2019下调试通过。以下是VBA源码。
一、获取文件路径：
Public Sub 获取文件路径()
Dim strFolder As
String
'差异：msoFileDialogFilePicker
With
Application.FileDialog(msoFileDialogFilePicker)
'文件对话框的题目，根据个人情况进行设定
.Title = "文件选择"
'默认打开的文件对话框路径，此处是d盘
.InitialFileName = "c:"
If .Show Then
'获取到路径
strFolder
= .SelectedItems(1)
End If
End With
End Sub
二、获取文件夹路径：
Public Sub 获取文件夹路径()
Dim strFolder As
String
'差异：msoFileDialogFolderPicker
With
Application.FileDialog(msoFileDialogFolderPicker)
.Title = "文件夹选择"
.InitialFileName = "c:"
If .Show Then
strFolder
= .SelectedItems(1)
End If
End With
End Sub
加载中，请稍候......
加载中…
喜欢