「Excel-VBA」功能模块-操作另一个Excel文件-01-文件打开窗口

看看资讯 / 100+人浏览

注意：免费节点订阅链接已更新至 2026-10-24，点击查看详情

系统环境：Windows 10
Excel：2016版本

这个系列集锦一些常用的功能模块，在一些项目中会穿插应用
功能模块中又包括很多子模块，本文涉及的是：非当前Excel文件读写

今天讲讲如何使用VBA实现打开文件窗口，选择文件

Part 1：场景介绍

当我们使用VBA制作一个系统时，有的时候希望可以实现文件的手动选择功能
然后对选择的文件进行自动化操作等
类似于Excel界面中选择菜单文件-打开，弹出的对话框，如图1所示

Part 2：代码实现

以下代码实现了打开窗口，并且限制只能选择后缀名为xlsx，txt，xlsm的文件

Sub test()     Set objFSO = CreateObject("Scripting.FileSystemObject")      With Application.FileDialog(msoFileDialogOpen)         .Title = "请选择文件"         .AllowMultiSelect = True         .Filters.Clear         .Filters.Add "Excel文件", "*.xlsx;*.txt;*.xlsm"         .FilterIndex = 2         .InitialFileName = ThisWorkbook.Path         .Show          For Each wenJian In .SelectedItems             longName = wenJian             shortName = objFSO.GetFileName(wenJian)             Debug.Print ("longName=" & longName)             Debug.Print ("shortName=" & shortName)             Call File_Insert(longName, shortName)         Next     End With End Sub

Part 3：部分代码解读

.Title = "请选择文件"，窗口的名字
.AllowMultiSelect = True，允许一次选择多个文件
.Filters.Add "Excel文件", "*.xlsx;*.txt;*.xlsm"，只能选择这三种格式的文件：xlsx，txt，xlsm。不同文件类型之间使用；隔开，整体使用""包络
.InitialFileName = ThisWorkbook.Path，默认打开到当前文件夹下，可以更改
For Each wenJian In .SelectedItems，对于每一个选择的文件可分别进行操作

以上，为本次的介绍内容，下回见。

本文首发于微信公众号：Excel高效办公之VBA。排版和细节略作修改，发于头条

作者: FreeClashNode

链接: https://www.freeclashnode.com/news/article-4296.htm

来源: www.freeclashnode.com

文章版权归作者所有，未经允许请勿转载。

上一个：手把手教你如何用 OpenCV + Python 实现人脸识别

下一个：寻人启事!美国《国家地理》杂志中文版“招兵买马”!

免费节点实时更新

「Excel-VBA」功能模块-操作另一个Excel文件-01-文件打开窗口

Part 1：场景介绍

Part 2：代码实现

Part 3：部分代码解读

热门文章

最新文章

归档

标签

「Excel-VBA」功能模块-操作另一个Excel文件-01-文件打开窗口

Part 1：场景介绍

Part 2：代码实现

Part 3：部分代码解读

特别推荐

热门文章

最新文章

归档

标签