[MSOffice:ExcelVBA]ファイル入出力

サンプルコード

ファイル読み込み

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub ReadFile ()
    '変数の宣言
    Dim aRFullPath As String
    Dim aRFileNo As Integer
    Dim aRLine As String
 
    '初期化--任意設定
    aRFullPath = "c:¥xxxx¥hoge.txt"
    '初期化--固定
    aRFileNo = FreeFile
 
    'メイン処理_ファイル読み込み
    Open aRFullPath For Input As aRFileNo
    Do Until EOF(aRFileNo)
        Line Input #aRFileNo , aRLine
    Loop
    Close aRFileNo
    MsgBox ("Finish!")
End Sub

ファイル書き込み

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub WriteFile ()
    '変数の宣言
    Dim aWFullPath As String
    Dim aWFileNo As Integer
    Dim aWLine As String
    '初期化--任意の設定
    aWFullPath = "c:¥xxxx¥hoge.txt"
    aWLine = "hogehoge"
    '初期化--固定
    aWFileNo = FreeFile
    'メイン処理_ファイル書き込み
    Open aWFullPath For Output As aWFileNo
    Print #aWFileNo , aWLine
    Close aWFileNo
    MsgBox ("Finish!")
End Sub

参考資料

Openステートメント

URL:Open Statement[Excel 2013 Developer Reference]

Line Inputステートメント

URL:Line Input # Statement[Excel 2013 Developer Reference]

Closeステートメント

URL:Close Statement[Excel 2013 Developer Reference]

つぶやき

今更、VBAって思うかもしれませんが、なんだかんだ言って地味によく使うし忘れがち😓
ってことで、メモメモ📝