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

2016年12月16日22:11:43 评论 7,319 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

发表评论

您必须才能发表评论!