系统:Windows 7
软件:Excel 2010
学习路径图:
- 针对之前的学习路径图,会针对的写一些文章
- 我们在做信息处理的时候,可能会涉及到多个其它文件,有的时候需要根据需求选择所需文件进行处理
- 今天我们就讲讲如何使用VBA实现打开文件的界面,并且获取到客户所选文件的绝对地址信息
效果动图
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
代码截图
打开文件窗口
.AllowMultiSelect = True
,允许同时选择多个文件,后续会对每个选中文件分别操作.Filters.Add "Excel文件", "*.xlsx;*.xls"
,可见的文件格式
.Filters.Add "Excel文件", "*.xlsx;*.txt"
,显示效果如下*.文件后缀名
.InitialFileName = ThisWorkbook.Path
,设置该窗口默认打开的文件位置For Each wenJian In .SelectedItems
,其中wenjian变量为选中文件的绝对地址增加txt后显示效果
learningBin
更多精彩,请关注微信公众号
扫描二维码,关注本公众号