Access VBA 入門講座 - 入出力関数

入出力関数

入出力関数とはテキストやCSVファイルにデータを保存したり読み出す場合に使用します。

関数	機能
FreeFile	Open 関数で使用できる次のファイル番号を表すInteger型の値を返します。
Open	ファイル番号で示されたファイルを開きます。

Open関数を使用してファイルを操作する場合は以下のアクセスモードを指定します。

アクセスモード	意味
Input	読み込み
Output	上書き
Append	追記


'---ファイルの読み込み

Sub ReadFile()
    
    Dim strFilePath As String
    Dim intFileNo As Integer
    Dim strData As String

    strFilePath = "C:\temp\samp.txt"
    intFileNo = FreeFile

    Open strFilePath For Input As #intFileNo

    Do While Not EOF(intFileNo)

        Line Input #intFileNo, strData

        Debug.Print strData

    Loop

Close intFileNo

End Sub


'---ファイルの書き出し

Sub WriteFile()

    Dim strFilePath As String
    Dim intFileNo As Integer
    Dim strData As String

    strFilePath = "C:\temp\samp.txt"
    intFileNo = FreeFile

    Open strFilePath For Output As #intFileNo

    Print #intFileNo, "Access VBA"

    Close intFileNo

End Sub


'---ファイルの追記

Sub AppendFile()

    Dim strFilePath As String
    Dim intFileNo As Integer
    Dim strData As String

    strFilePath = "C:\temp\samp.txt"
    intFileNo = FreeFile

    Open strFilePath For Append As #intFileNo

    Print #intFileNo, "Access VBA"

    Close intFileNo

End Sub