VBA小实例程序

Open "TESTFILE" For Output As #1   ' 打开输出文件。
Print #1, "This is a test"   ' 将文本数据写入文件。
Print #1,   ' 将空白行写入文件。
Print #1, "Zone 1"； Tab ； "Zone 2"   ' 数据写入两个区（print zones）。
Print #1, "Hello" ； " " ； "World"   ' 以空格隔开两个字符串。
Print #1, Spc(5) ； "5 leading spaces "   ' 在字符串以前写入五个空格。
Print #1, Tab(10) ； "Hello"   ' 将数据写在第十列。' 赋值 Boolean、Date、Null 及 Error 等。
Dim MyBool, MyDate, MyNull, 
MyErrorMyBool = False : MyDate = #February 12, 1969# : MyNull = Null
MyError = CVErr(32767)
' True、False、Null 及 Error 会根据系统的地区设置自动转换格式。
' 日期将以标准的短式日期的格式显示。
Print #1, MyBool ； " is a Boolean value"
Print #1, MyDate ； " is a date"
Print #1, MyNull ； " is a null value"
Print #1, MyError ； " is an error value"
Close #1   ' 关闭文件。