微信公众号 【EXCEL880】 QQ群【341401932】
课程咨询 加我微信EXCEL880B 试学网址http://v.excel880.com
课程咨询 加我微信EXCEL880B 试学网址http://v.excel880.com
我们在写vba代码的时候，都有使用文件对话框的情景，那么直接使用的话，系统会打开一个默认目录，用户还得一个个选择文件夹到目的地，这里介绍一个代码 VBA用选择文件对话框选择文件时指定打开的初始目录
代码如下
Function PickFile(path) '打开指定目录 弹出选择文件对话框
'百度不到去谷歌 2016-12-16 excel880.com q群341401932
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
