ランダムファイルを読み込む ： Excel

Option Explicit

Option Explicit

Option Explicit

Option Explicit

Private Type Record
    tDate As Long
    tType As String * 15
End Type

'セルをクリア
Private Sub MyDataClear()
    Dim i As Long
    
    For i = 7 To 21
        Cells(i, 2) = ""
        Cells(i, 3) = ""
    Next
End Sub

'ランダムファイル読み込みボタン
Private Sub CommandButton2_Click()
    Dim i As Long
    Dim s As String
    Dim MYREC As Record
    
    MyDataClear
    
    Open "C:\test\test-r.txt" For Random As #1 Len = Len(MYREC)
    '最後から読む
    For i = 18 To 10 Step -1
        Get #1, i - 6, MYREC
        Cells(i, 2) = MYREC.tDate
        Cells(i, 3) = Trim(MYREC.tType)
    Next
    Close #1
    MsgBox "読み込みしました"
End Sub