VBA用选择文件对话框选择文件时指定打开的初始目录

2016年12月16日22:11:43VBA用选择文件对话框选择文件时指定打开的初始目录已关闭评论 8,158 views
微信公众号 【EXCEL880】 QQ群【165159540】 Excel课程咨询 请加郑广学老师微信EXCEL880B

我们在写vba代码的时候,都有使用文件对话框的情景,那么直接使用的话,系统会打开一个默认目录,用户还得一个个选择文件夹到目的地,这里介绍一个代码 VBA用选择文件对话框选择文件时指定打开的初始目录

代码如下

Function PickFile(path) '打开指定目录 弹出选择文件对话框
    '百度不到去谷歌 2016-12-16 excel880.com q群165159540
    On Error Resume Next
    ChDrive path
    ChDir path
    PickFile = Application.GetOpenFilename("xls(*.xls;*.xlsx),*.xls;*.xlsx")
End Function
Sub Test()
    Dim i&, j&, k&, arr, brr
    PickFile ThisWorkbook.path '打开本表目录 弹出选择文件对话框
End Sub

表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页