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

VBA 继承自 Basic 语言的传统文件处理工具列表如下：

表1 VBA 继承自 Basic 的传统文件处理工具

上篇我们讨论了文件的 Open 与 Close，今天我们来看如何读写文本文件。

Print #

Print # 语句用于向顺序文件写入格式化的文本。其一般格式是：

Print #filenumber, [ outputlist ]

其中，filenumber 是以整数常量或整型变量表示的文件号。可选参数 outputlist 表示向文件写入的内容。如果省略 outputlist，则向文件写入一个空行（blank line）。

注：所谓空行（blank line），是指没有任何内容，只有回车（Chr(13)）和换行符（Chr(10)）的行。回车换行符表示为：

Chr(13) + Chr(10)

VBA 有一个符号常量 vbNewLine，就等于上述的两符号之和。

outputlist 的一般表示是：

其中，[ a ] 表示 a 是可选的，{ a | b } 表示 a 或 b。

各部分列表如下：

表2 outputlist 各部分的意义

我们在《文字处理（二）》中已经讨论过 Spc / Tab。Spc / Tab 在 Debug.Print 中的用法和这里的 Print # 语句中的用法是一样的。请点击文末所附链接移步查阅。下面用例子来演示 outputlist 各部分的意义。

例1. Print # 用法示例

我们在《对象（九）》中曾经讲过一个薪资统计的例子，当时是用 Debug.Print 输出统计报告的，现在我们把那个例子的统计数据写入文件，生成一个文件报告。

图1 Print # 用法示例

生成薪资分布数据的代码请参见《对象（九）》。

本例使用了如下的文件操作工具：

FreeFile：获取可用的文件号。建议在用 Open 打开文件之前调用 FreeFile 来获取安全可用的文件号。
Open：打开文件。Open 语句比较复杂，我们会在示例中展示 Open 的各种用法。
Print #：向文件写入文本内容。可以使用 Tab(n)、Spc(n) 以及 Format 来对输出内容进行格式化。
Close #：关闭文件。正常流程中，请使用 Close # 来关闭指定文件号的文件。
Reset：出错情况下的紧急出口。

本示例生成的文件 report.txt 显示如下：

图2 Print # 语句的输出效果

用无参数的 Tab 来定位打印区，需要我们了解对于每种数据类型，Print # 在写入文件时的行为。下面的例子演示了 Print # 语句在写入各种数据类型时的行为。

例2. Print # 将各种数据类型写入文件时的行为

图3 Print # 写入各种数据类型时的行为

文件 tab.txt 的内容如下：

图4 文件 tab.txt

由图可见：

Print # 语句在直接将 Date 函数的结果写入文件时，会在尾部添加一个空格。
Print # 语句在直接将 Double 类型变量写入文件时，会在头、尾各添加一个空格。
Print # 在直接将整型变量写入文件时，也会在头、尾各添加一个空格。

例3. Print # 使用无参数 Tab 定位

图5 Print # 使用无参数 Tab 定位

图5 生成的文件显示结果如下：

图6 Print # 使用无参数 Tab 定位的输出结果

VBA 的打印区（print zone）是 14 列，使用 14 个字符而不是 14 个字节，因此，在中英文混合的情况下，就会出现图中第1、2行的情况。第 1 行 N 开始第二个打印区，第 2 行的 3 也是开始第二个打印区，也是就说，N 和 3 之前都是 14 列，但显示出来的实际宽度不一样，就导致了这种参差不齐的情况。

第 3、4 行，因为 3 之前都是同样的文字，按理应该对齐才对。但第 4 行是因为 Print # 直接将 Date 作为参数，由例 2 可知，Print # 在打印 Date 时会在日期末尾添加一个空格，因此 3 之前的内容已经占满了 14 列（即占满了一个打印区），下一个打印区按道理应该紧跟着日期后的空格，实际上从 3 开始的打印区会跳过当前打印区（即紧跟着日期的打印区），在下一个打印区（即第三个打印区）开始。

由此可见，Print # 中的 Tab 在计算打印区时，打印区的内容不能占满 14 列，应该至少留有一个空格，否则 Tab 所定位的打印区会跳过紧接着的打印区，进入下一个打印区。这一点也是很诡异的，因为 VBA 的文档说：

Use Tab with no argument to position the insertion point at the beginning of the next print zone. Print zones begin every 14 columns.（用无参数的 Tab 定位插入点在下一个打印区的开始。每 14 列形成一个打印区。）

按照这个文档说明，第一个打印区，譬如已经占满了 14 列，下一个打印区应该是从第 15 列开始的下一个 14 列。如果第一个打印区没有占满 14 列，则应该用空格补足 14 列，第二个打印区还是应该从第 15 列开始。实际情况却如上面所述：如果第一个打印区已经占满 14 列，则 Tab 后的内容会在第三个打印区开始。

由此例也可以看出，在有中英文混合的情况下，靠打印区来对齐文本是不现实的，还是要依靠 Spc(n) 和 Tab(n) 来尝试对齐比较靠谱。

了解了 Print # 语句的怪癖之后，就要避免直接在 Print # 语句上给出诸如 Date、Double、Integer 等类型的变量，而是先将这些变量转换为字符串类型，然后再用 Print # 语句写入文件。

Write #

Write # 作用与 Print # 类似，但 Print # 主要用于输出最终结果，而 Write # 更倾向于写入文件的数据最终还需要读取回来。

Write # 的一般格式是：

Write #filenum, [ outputlist ]

其中，filenumber 和 outputlist 与 Print # 语句一样。

例1. Write # 用法示例

将 Print # 语句的例2 用 Write # 重写如下：

图7 Write # 重写图3 示例

结果如下：

图8 Write # 的输出结果

由图可见，Write # 对于某些数据类型，添加了如 # 和 " 这样的“括号”：

对于字符串，使用双引号（""）括起来
对于 Date 和 Boolean 类型，使用 ## 括起来

还有一点与 Print # 的不同之处，Print # 由分号（;）连接的项与项之间没有分隔符，Write # 则使用逗号分隔。

另外，对于 Null，Print # 直接输出 Null，Write # 则输出 #Null#。

由于以上的特点，使得 Write # 语句输出的文件更类似于 CSV 格式。

我们今天主要讨论了向文件写入数据（输出）的语句。Print # 主要用于形成最终的结果文件，Write # 语句则主要输出需要再次读入的文件，而读取 Write # 结果的主要是 Input #。这将是下一篇要讨论的内容。