VBAのGetでファイルからデータを読み取る方法をわかりやすく解説

Sub ReadIntegerFromFile()
    Dim fileNum As Integer
    Dim myNumber As Integer

    ' ファイルを開く
    fileNum = FreeFile
    Open "C:\temp\data.dat" For Binary As #fileNum

    ' ファイルからデータを読み取る
    Get #fileNum, 1, myNumber

    ' ファイルを閉じる
    Close #fileNum

    ' 読み取ったデータを表示
    MsgBox "読み取った数値: " & myNumber
End Sub

Type Employee
    ID As Integer
    Name As String * 20
    Age As Integer
End Type

Sub ReadRecord()
    Dim fileNum As Integer
    Dim emp As Employee

    ' ファイルを開く
    fileNum = FreeFile
    Open "C:\temp\employees.dat" For Random As #fileNum Len = Len(emp)

    ' 2番目のレコードを取得
    Get #fileNum, 2, emp

    ' ファイルを閉じる
    Close #fileNum

    ' 結果を表示
    MsgBox "社員ID: " & emp.ID & vbCrLf & "名前: " & emp.Name & vbCrLf & "年齢: " & emp.Age
End Sub

Sub ReadBinaryToExcel()
    Dim fileNum As Integer
    Dim myText As String * 50
    Dim rng As Range

    ' ファイルを開く
    fileNum = FreeFile
    Open "C:\temp\textdata.dat" For Binary As #fileNum

    ' ファイルからデータを取得
    Get #fileNum, 1, myText

    ' ファイルを閉じる
    Close #fileNum

    ' Excelのセルに書き込む
    Set rng = Range("A1")
    rng.Value = Trim(myText)
End Sub