Open ファイル名 For 開き方 As #ファイル番号
| キーワード | 処理 | モード |
| Input | 読み込み | 入力モード |
| Output | 書き込み | 出力モード(上書き) |
| Append | 書き込み | 追加モード(追加) |
| Random | 読み込み/書き込み | ランダムアクセスモード |
| Binary | 読み込み/書き込み | バイナリモード(一つのデータとしてセルに書込) |
Sub Sample21()
Dim n As Long
n = FreeFile
Open "D:\Test.txt" For Output As #n
Print #n, Now
Close #n
End Sub