VBA-通过选择文件对话框对获取文件或文件夹路径
分类:Excel
from http://blog.sina.com.cn/s/blog_4a45b0310102z3vk.html
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