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

2016年12月16日22:11:43 评论 6,976 views
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页
微信公众号 【EXCEL880】 QQ群【273774246】

我们在写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

微信公众号 【EXCEL880】 QQ群【273774246】
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页

发表评论

您必须才能发表评论!