选择文件窗口，获取选择文件地址

微信公众号原文

系统：Windows 7
软件：Excel 2010

学习路径图：

学习路径图_旋转.png

• 针对之前的学习路径图，会针对的写一些文章
• 我们在做信息处理的时候，可能会涉及到多个其它文件，有的时候需要根据需求选择所需文件进行处理
• 今天我们就讲讲如何使用VBA实现打开文件的界面，并且获取到客户所选文件的绝对地址信息

效果动图

1.gif

Part 1：代码

Sub 获取其它文件地址()
    Set sht = ThisWorkbook.Worksheets("示例")
    sht.Range("A1") = ""
    
    With Application.FileDialog(msoFileDialogOpen)
        .Title = "选择文件"
        .AllowMultiSelect = True
        .Filters.Clear
        .Filters.Add "Excel文件", "*.xlsx;*.xls"
        .FilterIndex = 2  '默认的文件筛选条件的索引号
        .InitialFileName = ThisWorkbook.Path
        .Show
        
        For Each wenJian In .SelectedItems
            longName = wenJian
            shortName = CreateObject("Scripting.FileSystemObject").GetFileName(wenJian)
            sht.Range("A1") = longName
        Next
        
    End With
End Sub

代码截图

1.png

打开文件窗口

2.png

Part 2：部分代码解读

1. .AllowMultiSelect = True,允许同时选择多个文件，后续会对每个选中文件分别操作
2. .Filters.Add "Excel文件", "*.xlsx;*.xls",可见的文件格式
   • 修改为：.Filters.Add "Excel文件", "*.xlsx;*.txt"，显示效果如下
   • 支持文件格式设置：不同文件格式之间使用分号;隔开，单个文件格式为*.文件后缀名
3. .InitialFileName = ThisWorkbook.Path，设置该窗口默认打开的文件位置
4. For Each wenJian In .SelectedItems,其中wenjian变量为选中文件的绝对地址

增加txt后显示效果

3.png

---

• 如需文中高清并可以无限放大路径图，可以文后留言留下邮箱，小编会发过去
• 本文为原创作品，如需转载，可加小编微信号learningBin

---

更多精彩，请关注微信公众号
扫描二维码，关注本公众号

公众号底部二维码.jpg