VBA03

Sub 出力()

    Dim intFF As Integer        ' FreeFile値
    Dim strREC As String        ' 読み込んだレコード内容
    Dim GYO, COL As Long        ' カウンタ
    Dim OpenFileName As String  'ファイル名
    Dim vStr As Variant

    ChDrive "E"
    ChDir "E:\Documents\dev\trunk\vba"
    
    OpenFileName = Application.GetOpenFilename("ﾃｷｽﾄ,*.TXT")
    If OpenFileName = "False" Then
        MsgBox "キャンセルされました"
        Exit Sub
    End If
    
    'クリア
    Cells.Clear
    
    'タイトル
    GYO = 1
    COL = 1
    For Each vStr In Split("a01,a02,a03,a01,a02,a03", ",")
        Cells(GYO, COL).Value = vStr
        COL = COL + 1
    Next vStr
    GYO = GYO + 1
    ' FreeFile値の取得(以降この値で入出力する)
    intFF = FreeFile
    Open OpenFileName For Input As #intFF
    
    ' ファイルのEOF(End of File)まで繰り返す
    Do Until EOF(intFF)
        ' 改行までをレコードとして読み込む
        Line Input #intFF, strREC
        
        COL = 1
        For Each vStr In Split(strREC, " ")
            Debug.Print strREC
            Cells(GYO, COL).Value = vStr
            COL = COL + 1
        Next vStr
        
        Cells(GYO, COL).FormulaR1C1 = "=RC[-3]": COL = COL + 1
        Cells(GYO, COL).FormulaR1C1 = "=RC[-3]": COL = COL + 1
        Cells(GYO, COL).FormulaR1C1 = "=RC[-3]": COL = COL + 1
        
        GYO = GYO + 1
    Loop
    
    ' 指定ファイルをCLOSE
    Close #intFF
    '枠固定
    Range("A2").Select
    ActiveWindow.FreezePanes = True

End Sub