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

如果你已经能用 VBA 写几段循环、做点表内计算，但一碰到「把几十个报表合并到一个工作簿」「按月拆分文件另存」「遍历某个文件夹里所有 xlsx」这类活儿，还是靠手动复制粘贴，那这门课补的正是这块缺口：VBA 只管工作簿里面的事，工作簿外面的事——文件、文件夹、路径、后缀名——它默认管不了。FSO 就是把这块补上的东西。

先搞清楚你缺的是哪一块

Excel 自带的 Dir 函数也能列文件，很多人就用它凑合着写，结果在递归子文件夹、判断文件是否存在、取父级目录、拿文件名和扩展名这些地方反复踩坑。FSO（FileSystemObject）是脚本运行库里的一套对象模型，把驱动器、文件夹、文件都抽象成对象，配 Drive、Folder、File、TextStream 几个集合和对象，写法比 Dir 那套字符串拼接清楚得多。

这门课的前提是你能读懂基本的 VBA 语法：变量声明、For Each、If 判断、With 结构。如果连 Sub 和 Function 的区别都还模糊，先回去把基础补上再来，否则这里会卡在对象引用和前期绑定上。

课程要解决的具体问题

• 怎么在 VBA 里创建 FSO 对象，前期绑定和后期绑定（CreateObject）分别适合什么场景，换台电脑为什么就报错。
• 如何判断一个路径下的文件/文件夹是否存在，而不是靠 On Error Resume Next 硬扛。
• 遍历文件夹时怎么处理子文件夹——递归怎么写才不会漏、不会死循环。
• 用 FSO 打开文本文件读写：读 CSV、写日志、按行处理，以及 OpenTextFile 那几个参数到底控制什么。
• 把 FSO 和 Excel 对象接起来：批量打开工作簿取数、按条件另存、改名、移动、删除，并保证文件不被占用。
• 路径拼接的老问题：怎么拼才不会被反斜杠坑，相对路径和绝对路径混用时注意什么。

配套练习该怎么用

光看代码没用，FSO 这类东西必须自己动手在本地文件夹里试。建议每学一个对象就自己造一组测试文件：建三层子文件夹，扔几个 txt 和 xlsx 进去，然后写代码去数、去筛、去改。特别注意两点：一是删除和移动操作先备份，二是把「取文件名不带扩展名」和「取扩展名」分开写熟，这两个在批量重命名里出现频率极高。

章节笔记适合课后复盘，但别当代码字典背。真正要形成肌肉记忆的是「遇到文件层面的需求，先想是不是该交给 FSO，而不是继续用 Dir 和字符串函数硬拼」。

看完应该能回答这几个问题

• 给你一个文件夹，你能写出遍历它以及所有子文件夹、并按扩展名分类统计数量的过程吗？
• 一批格式相同的月报放在同一目录，你能自动把它们的数据汇总到一个工作表，并在汇总表里标出数据来自哪个文件吗？
• 一个工作簿有多张表，你能按表名拆成多个独立文件，存到指定文件夹，并处理同名文件已存在的情况吗？
• 你能说清楚 FSO 和 Dir、FileSystemObject 和 Scripting.FileSystemObject 之间的关系吗？
• 当代码在别人电脑上报「ActiveX 部件不能创建对象」时，你知道从哪几个方向排查吗？

如果这几个问题你现在答不上来，学完再回来对一遍；如果能流畅答出来，说明这门番外篇的钱和时间没白花。FSO 本身不难，难的是把它和 Excel 的批处理需求对上号——这才是这门课真正想让你练出来的判断力。