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

2016年12月16日22:11:43 评论 6,509 views
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页

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

  • 郑广学老师微信号
  • EXCEL880B
  • weinxin
  • 我的微信公众号
  • EXCEL880
  • weinxin
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页

发表评论

您必须才能发表评论!