Excel VBA 编程基础 -- 文件处理(一)

从今天开始，我们讨论 VBA 中的文件处理。

VBA 有两套文件处理方案：

• 早期方案：VB 提供了一些文件处理的语句，譬如 Open，Print，Close 等，VBA 继承了这些早期的文件处理语句。
• 现代方案：Microsoft Scripting Runtime 提供了若干与文件处理有关的对象，譬如文件系统对象（FileSystemObject），驱动器、文件夹、文件对象，对文件进行读写的 TextStream 对象，这些对象为 VBA 程序员提供了更加现代、更加面向对象的文件处理方案。
• Microsoft Scripting Runtime 中的对象只能处理文本文件，要处理二进制文件，使用 ADODB.Stream 对象。

我们先从早期的文件处理语句讲起。

VBA 的早期方案中，与文件处理有关的内容请见下表：

表1 VBA 文件处理工具

下面先来看对文件夹的操作。

注：现在经常说的文件夹（folder），早期系统中都称为目录（directory）。我们这里将这两个概念作为同义词使用。

ChDrive

ChDrive 用来改变当前驱动器。

注：我们这里把驱动器也当作是文件夹的一种来对待，所以将 ChDrive 操作归入文件夹操作一类。

ChDrive 的一般格式是：

ChDrive drive

其中，drive 是字符串表达式，指定当前系统中的某个驱动器。如果 drive 为空字符串，则 ChDrive 不做任何事情。如果 drive 含有多个字符，则 ChDrive 取第一个字符作为目标驱动器。

例1. ChDrive 用法示例

图1 ChDrive 用法示例

由图可见，如果 drive 含有当前系统中不存在的驱动器名称，则会引发“设备不可用”的运行时错误。

VBA 虽然有改变当前驱动器的 ChDrive 语句，但并没有提供获取当前驱动器的手段。我们以后会在 VBA 的现代方案中看到，FileSystemObject 提供了更完善的设施。

MkDir

MkDir 用来创建目录（文件夹）。其一般格式是：

MkDir path

其中，path 是一个字符串表达式，指定要创建的目录。path 中可以含有驱动器，表示在指定的驱动器上创建指定的目录，当然，如果 path 中的驱动器不存在，则会引发错误。如果 path 中不包含驱动器，则在当前驱动器上创建指定的目录。

例1. MkDir 用法示例

图2 MkDir 用法示例

如图所示，MkDir 顺利地在驱动器 D 上创建了目录 VBA_file，但在驱动器 A 上创建 VBA_file 时引发了“路径未找到”错误，这是因为，系统中并没有 A 这个驱动器。

该示例的运行结果如下：

图3 MkDir 的运行结果

由图可见，MkDir 确实在驱动器 D 上创建了一个名为 VBA_file 的目录。

ChDir

ChDir 用来改变当前目录。其一般格式是：

ChDir path

其中，path 是字符串表达式，表示要改变到的目录。path 可以包含驱动器，表示指定驱动器上的指定目录。如果不包含驱动器，则改变当前目录到当前驱动器上的指定目录。同上面的用法一样，如果 path 包含了当前系统中不存在的驱动器，则引发错误。

同驱动器的情形一样，VBA 提供了改变当前目录的语句，但并没有提供获取当前目录的手段。这也要等到现代方案的 FileSystemObject 中去讨论。

例1. ChDir 用法示例

图4 ChDir 用法示例

虽然 VBA 的早期方案中没有提供获取当前目录的手段，但我们可以从另外的角度来验证 ChDir 的效果。如图，MkDir 在驱动器 D 上创建了 VBA_file 目录，然后 ChDir 将当前目录改变到新创建的目录中，即 D:\VBA_file 成为了当前 VBA 项目的当前目录。接着，我们打开一个 Command 命令窗口，使用 Windows 的 RmDir 命令删除刚创建的 VBA_file 目录，结果 RmDir 的执行报告错误：RmDir 无法删除指定的目录，因为该目录正在被其他进程使用。

因为 D:\VBA_file 是我们当前 VBA 项目的当前目录，也就是说，我们当前的这个 VBA 项目正在使用 D:\VBA_file 作为当前目录，所以禁止其他进程（命令）删除此目录。

这也就间接证明了 ChDir 确实将 VBA 项目的当前目录改变到了 path 所指出的目录。

RmDir

RmDir 的作用是删除指定的目录。其一般格式是：

RmDir path

其中，path 是字符串表达式，表示要删除的目录。path 可以包含驱动器，表示删除指定驱动器上的指定目录。如果不包含驱动器，则表示删除当前驱动器上的指定目录。

注：

• RmDir 要删除的目录必须是一个空目录，即要删除的目录不能包含文件，也不能包含目录。
• 当然，要删除的目录也不能是当前目录。

例1. RmDir 用法示例

图5 RmDir 用法示例

从图4 可以看到，Windows 本身提供了一个名为 RmDir 的命令，作用与 VBA 中的同名语句是一样的，但功能要比 VBA 的 RmDir 强大得多。Windows 的 RmDir 可以删除不为空的目录，即可以对某个目录中的内容进行级联删除，待该目录成为空目录之后，再删除该目录。这个能力是 VBA 的 RmDir 所不具备的。

例2. 删除目录子树

图6 删除目录子树

我们可以使用 Windows 强大的 RmDir 来删除目录子树（directory subtree）。使用这个命令要特别小心！

所谓目录子树（directory subtree），是指某个目录下面仍然含有其他文件/子目录，而以该目录为根结点而构成的一颗树。这棵树是作为整个文件系统目录树的一部分而存在的，因此称为目录子树。