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