有时您可能希望宏将信息保存到文本文件中。这很容易做到。您所需要做的就是打开文件进行输出,然后开始向该文件发送信息。下面的代码片段使用此方法写入文本文件。

Open "MyFile.Dat" For Output As #1 Print #1, NumValues For J = 1 to NumValues     Print #1, UserVals(J)

Next J Close #1

写入文件的第一件事是一个数字值,指示将跟随该文件的数量(代码假定您在NumValues变量中设置了该值)。然后使用For …​ Next循环创建文件的余额。

您应该意识到,所编写的代码将覆盖任何现有的MyFile.Dat文件。如果您想以某种方式保护文件,则在打开文件之前,您的代码将需要检查文件是否存在,或者将文件的属性设置为只读。

注意:

如果您想知道如何使用此页面(或_ExcelTips_网站上的任何其他页面)中描述的宏,我准备了一个特殊页面,其中包含有用的信息。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧(8885)适用于Microsoft Excel 2007、2010、2013、2016、2019和Office 365中的Excel。您可以在此处为Excel的较早菜单界面找到此技巧的版本: