Excel VBA Openステートメントで外部ファイルを開いて読み書きする

Excel VBA  Openステートメントは、外部ファイルを開いて読み書きするために使用されます。テキストファイルやバイナリファイルなど、さまざまな形式のファイルを操作するために利用します。具体的な使い方や、注意点やサンプルコードを紹介します。

Option Explicit

Sub ReadTextFile()
    Dim filePath As String
    Dim fileNum As Integer
    Dim fileContent As String
    Dim line As String
    
    filePath = "C:\Users\User\Desktop\DataCsv\テキスト.txt"
    fileNum = FreeFile
    
    On Error GoTo ErrorHandler
    Open filePath For Input As fileNum
    
    Do While Not EOF(fileNum)
        Line Input #fileNum, line
        fileContent = fileContent & line & vbCrLf
    Loop
    
    Close fileNum
    MsgBox fileContent
    Exit Sub
    
ErrorHandler:
    MsgBox "ファイルを開くことができませんでした: " & Err.Description
    Close fileNum
End Sub

テキストファイルに書き込む

Option Explicit

Sub WriteTextFile()
    Dim filePath As String
    Dim fileNum As Integer
    
    filePath = "C:\Users\User\Desktop\DataCsv\テキスト.txt"
    fileNum = FreeFile
    
    On Error GoTo ErrorHandler
    Open filePath For Output As fileNum
    
    Print #fileNum, "Hello, World!"
    Print #fileNum, "This is a sample text file."
    
    Close fileNum
    MsgBox "書き込みが完了しました。"
    Exit Sub
    
ErrorHandler:
    MsgBox "ファイルを書き込むことができませんでした: " & Err.Description
    Close fileNum
End Sub

ログファイルに追記する

Option Explicit

Sub AppendToLogFile()
    Dim filePath As String
    Dim fileNum As Integer
    Dim logMessage As String
    
    filePath = "C:\Users\User\Desktop\DataCsv\テキスト.txt"
    fileNum = FreeFile
    logMessage = "Log entry at " & Now
    
    On Error GoTo ErrorHandler
    Open filePath For Append As fileNum
    
    Print #fileNum, logMessage
    
    Close fileNum
    MsgBox "ログが追記されました。"
    Exit Sub
    
ErrorHandler:
    MsgBox "ログファイルを追記することができませんでした: " & Err.Description
    Close fileNum
End Sub

これらの例を使って、ファイルの読み書きやログの追記を行うことができます。適切なエラーハンドリングとファイルのクローズ処理を行うことで、安全で効率的なファイル操作を実現できます。