Sub OpenTextFile()
Dim filePath As String
Dim fileNumber As Integer
filePath = "C:\example.txt" ' ファイルパスを指定
fileNumber = FreeFile() ' 空いているファイル番号を取得
' ファイルを開く
Open filePath For Input As #fileNumber
' ここでファイルを読み込んだり操作したりするコードを記述
' ファイルを閉じる
Close #fileNumber
End Sub
このコードは、指定されたパスのテキストファイルを開き、ファイル番号を使用してファイルを操作します。
最後にファイルを閉じることを忘れないでください。
サンプルコード2: テキストファイルに書き込む
Sub WriteTextFile()
Dim filePath As String
Dim fileNumber As Integer
filePath = "C:\example.txt" ' ファイルパスを指定
fileNumber = FreeFile() ' 空いているファイル番号を取得
' ファイルを開く(書き込みモード)
Open filePath For Output As #fileNumber
' ファイルにデータを書き込む
Print #fileNumber, "これはテストです。"
' ファイルを閉じる
Close #fileNumber
End Sub
Sub OpenReadFile()
Dim filePath As String
Dim fileContent As String
Dim fileNumber As Integer
filePath = "C:\example.txt" ' ファイルのパス
fileNumber = FreeFile() ' 利用可能なファイル番号を取得
' テキストファイルを入力モードで開く
Open filePath For Input As #fileNumber
' ファイルを行単位で読み込み
Do Until EOF(fileNumber)
Line Input #fileNumber, fileContent
Debug.Print fileContent ' コンソールに出力
Loop
' ファイルを閉じる
Close #fileNumber
End Sub
サンプルコード1に対して、ファイルを開いた後の処理を追加してます。
サンプルコード4: バイナリファイルを読み込む
Sub OpenBinaryFile()
Dim filePath As String
Dim fileContent As String
Dim fileNumber As Integer
filePath = "C:\example.dat" ' ファイルのパス
fileNumber = FreeFile()
' バイナリファイルをバイナリモードで開く
Open filePath For Binary As #fileNumber
' ファイルを読み込む
Get #fileNumber, , fileContent
Debug.Print fileContent ' コンソールに出力
' ファイルを閉じる
Close #fileNumber
End Sub
サンプルコード5: キストファイルを追記モードで開く
Sub OpenAppendFile()
Dim filePath As String
Dim fileNumber As Integer
filePath = "C:\example.txt" ' ファイルのパス
fileNumber = FreeFile()
' ファイルを追記モードで開く
Open filePath For Append As #fileNumber
' ファイルにデータを追加する
Print #fileNumber, "VBAは楽しい!"
' ファイルを閉じる
Close #fileNumber
End Sub
サンプルコード6: 複数のデータをファイルに書き込む
Sub WriteMultipleDataToFile()
Dim filePath As String
Dim fileNumber As Integer
Dim i As Integer
filePath = "C:\numbers.txt" ' ファイルのパス
fileNumber = FreeFile()
' ファイルを出力モードで開く
Open filePath For Output As #fileNumber
' 1から10までの数をファイルに書き込む
For i = 1 To 10
Print #fileNumber, "Number: " & i
Next i
' ファイルを閉じる
Close #fileNumber
End Sub