【ACCESS VBA】マルチフォーマットテキストをテーブルに取込したい

前提・実現したいこと

超初心者です。見当違いな質問をしていたら、申し訳ありません。
ACCESSにて、マルチフォーマットの固定長データをテーブルにVBAを使用し、取込したいと考えています。
マルチフォーマットのデータは

AA20200515
BBﾄｳｷｮｳ
CCｽｼﾛｰｻﾊﾞ 10
CCｸﾗｽｼｶﾚｲ 20
CCｶｯﾊﾟｽｼﾏｸﾞﾛ30
DDﾖﾋﾞ
BBｶﾅｶﾞﾜ
CCﾊﾏｽｼｳﾆ 40
CCﾁｮｳｼﾏﾙｲｸﾗ 50
DDﾖﾋﾞ

のようになっており、
最終的には、テーブルに

日付,場所,商品,個数
20200515,ﾄｳｷｮｳ,ｻﾊﾞ,10
20200515,ﾄｳｷｮｳ,ｶﾚｲ,20
20200515,ﾄｳｷｮｳ,ﾏｸﾞﾛ,30
20200515,ｶﾅｶﾞﾜ,ｳﾆ,40
20200515,ｶﾅｶﾞﾜ,ｲｸﾗ,50

のように
CCの行数分（5行）となるよう、取込をしたいと考えています。
（CC行には3から8カラム目のように不要な文字列も存在）
※AAはファイルヘッダ
BBは伝票ヘッダ
CCは伝票明細
DDは予備（カット対象）
のイメージです。

試したこと

・Line Input
・Select Case （Leftで2文字目で判定していく）
等を使用すれば出来るかと思ったのですが、
どうにも上手くいきません。。
お手数ですが、アドバイス頂ければと思っております。。

補足情報（FW/ツールのバージョンなど）

ACCESS2010を使用しております。

行動規範の内容に同意します

回答1件

ベストアンサー

サンプル作って見ました。もっと良いやり方が必ずある筈です。
参考程度に見て下さい。
ファイルをC:￥Data.txtへ置いて動かせば、結果をｲﾐﾃﾞｨｴｲﾄ画面で見れます。
Excelで作りましたがAccessでも同じ筈です。

Option Explicit

Private Type Table_You_Data
    strDate As String
    strBasyo As String
    strName As String
    strNumber As String
End Type
Private TesRec() As Table_You_Data

Private intCountRec As Integer
Private iX As Integer
Private MyStr As String
Private strWorkAADate As String
Private strWorkBBBasyo As String
Private buf As String

Sub Test_Sample_Miniature()
    Open "C:\Data.txt" For Input As #1
    intCountRec = -1
    Do Until EOF(1)
        Line Input #1, buf
        If Left(buf, 2) = "AA" Then
            strWorkAADate = Mid(buf, 3)
        Else
            Call SampleBB
        End If
    Loop
    Close #1
    
    For iX = 0 To intCountRec
        MyStr = ""
        MyStr = MyStr & TesRec(iX).strDate & ","
        MyStr = MyStr & TesRec(iX).strBasyo & ","
        MyStr = MyStr & TesRec(iX).strName & ","
        MyStr = MyStr & TesRec(iX).strNumber
        Debug.Print MyStr
    Next

End Sub

Sub SampleBB()
    Do Until EOF(1)
        If Left(buf, 2) = "BB" Then
            strWorkBBBasyo = Mid(buf, 3)
            Line Input #1, buf
        Else
            Call SampleCC
        End If
    Loop
End Sub

Sub SampleCC()
    Do Until EOF(1)
        If Left(buf, 2) = "CC" Then
            '
            intCountRec = intCountRec + 1
            '
            ReDim Preserve TesRec(intCountRec)
            TesRec(intCountRec).strDate = strWorkAADate
            TesRec(intCountRec).strBasyo = strWorkBBBasyo
            TesRec(intCountRec).strName = Mid(buf, 9, 4)
            TesRec(intCountRec).strNumber = Mid(buf, 13)
            Line Input #1, buf
            '
        Else
            If Left(buf, 2) = "AA" Or Left(buf, 2) = "BB" Then
                Exit Do
            End If
            Line Input #1, buf
        End If
    Loop
End Sub