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   ' 關閉文件。