【曾贤志】[第3季]EXCEL VBA编程番外篇——FSO文件系统对象与VBA完美结合

这套番外篇的主题很集中：把 Windows 的 FileSystemObject（FSO）接到 Excel VBA 里用。日常写 VBA 的人大多绕不开文件操作——批量改名、按月归档、从一堆 CSV 里捞数、定时清理临时目录。传统做法是Dir循环加Open ... For Input，能跑，但一旦涉及子文件夹递归、路径拼接、文件属性判断、文本流编码，代码就开始变得又长又脆弱。FSO 提供的正是这块标准能力：Drive、Folder、File、TextStream 四类对象，把文件系统抽象成可遍历、可判断、可读写的对象模型。

技术栈与前提

资料面向的是已经能写基础 VBA 的开发者：知道 Sub/Function、会声明变量、见过For Each和With语句即可，不需要额外的 .NET 或 Python 背景。环境是 Windows 上的 Excel，FSO 本身来自Scripting运行时库，工程里通过「工具 → 引用」勾选Microsoft Scripting Runtime获得早期绑定，或者用CreateObject("Scripting.FileSystemObject")走后期绑定。两种绑定的取舍、各自的报错时机差异，是上手时第一个值得留意的工程细节。

内容围绕的核心问题

• 路径处理：用BuildPath、GetParentFolderName、GetBaseName、GetExtensionName替代手工字符串拼接，避免反斜杠多一个少一个这类低级错误。
• 遍历：Folder.SubFolders与Folder.Files的迭代写法，以及递归遍历整个目录树时如何控制终止条件。
• 判断与筛选：FileExists、FolderExists、File.Attributes、DateLastModified、Size，用来做「只处理某时间段内、非隐藏、超过某体积」的过滤逻辑。
• 读写：OpenTextFile的三种 IOMode（ForReading / ForWriting / ForAppending）与 Tristate 编码参数，处理 UTF-8 与 ANSI 混用的现实数据。
• 与 Excel 的衔接：把遍历结果直接落到工作表区域，或反向从单元格读路径清单再批量执行操作。

和 Excel 原生方案的对照关系

值得拿来对照实践的地方在于，FSO 并不是唯一解。VBA 自带的Dir在单层目录、简单判断场景下更快，递归要靠自己写栈；FileSystemObject语义清晰但每次调用有 COM 开销。资料里对同一任务给出不同写法的场景，正好适合你本机跑一遍做耗时对比，而不是只看结论。另外ADODB.Stream在二进制和编码转换上比 TextStream 更灵活，两者边界在哪，也是对照时值得自己验证的点。

怎么用这份资料

建议按「先跑通再改造」的节奏：把示例中的路径换成自己机器上的真实目录，尤其是包含子文件夹和中文文件名的那种，先确认能正确遍历；接着把操作对象从单个文件扩到批量，观察异常文件（被占用、权限不足、路径超长）是否被妥善跳过或记录。这类错误处理在真实批处理脚本里比正常流程更关键。每章配套笔记适合在写自己的工具函数时回头查阅，比如把常用的「递归列出文件」封装成一个可复用的 Function，参数化根目录和扩展名过滤，后面所有小工具都调用它。

适合谁，不适合谁

适合已经在用 VBA 处理表格、但文件操作还停留在手工或零散代码的开发者，也适合想给学生讲清「对象模型如何封装系统调用」的教学者。如果你还没写过任何 VBA，或者想找的是 Python 的 pathlib / os.walk 方案，这份资料不是起点。它的价值在于把一个具体而高频的子系统讲透，让你在自己的自动化脚本里少写重复代码、少踩路径与编码的坑。