Excel VBA 入門講座入出力関数

入出力関数

関数名	FreeFile
機能	ファイル番号の取得
構文	FreeFile


intFileNo=FreeFile

関数名	Open
機能	ファイルを開く
構文	Open "ファイル名" For アクセスモード As #ファイル番号


'ファイルの読み出し
Sub ReadFile()
    Dim strFileName As String
    Dim intFileNo As Integer
    Dim strData As String
    
    strFileName = "C:\temp\samp.txt"
    intFileNo = FreeFile
    
    Open strFileName For Input As #intFileNo
    
    Do While Not EOF(intFileNo)
        Line Input #intFileNo, strData
        Debug.Print strData
    Loop
    
    Close intFileNo
End Sub


'ファイルの書き出し
Sub WriteFile()
    Dim strFileName As String
    Dim intFileNo As Integer
    Dim strData As String
    
    strFileName = "C:\temp\samp.txt"
    intFileNo = FreeFile
    
    Open strFileName For Output As #intFileNo
       
    Print #intFileNo, "aaaaaaa"
       
    Close intFileNo
End Sub


'ファイルの追記
Sub AppendFile()
    Dim strFileName As String
    Dim intFileNo As Integer
    Dim strData As String
    
    strFileName = "C:\temp\samp.txt"
    intFileNo = FreeFile
    
    Open strFileName For Append As #intFileNo
       
    Print #intFileNo, "aaaaaaa"
       
    Close intFileNo
End Sub

関数名	Close
機能	Open ステートメントで開いたファイルへの入出力を終了して、ファイルを閉じる
構文	Close "ファイル番号"


Close #1

関数名	Line Input
機能	シーケンシャル入力モード (Input) で開いたファイルから行全体を読み込み、文字列型 (String) の変数に代入する
構文	Line Input #ファイル番号, 変数(String型)


Line Input #1, strData

関数名	Print
機能	シーケンシャル出力モード (Output または Append) で開いたファイルにデータを書き込む
構文	Print #ファイル番号, 文字列等


Print #1, "test"