【VBA】テキストファイルから特定の文字列を抽出して、エクセルに出力する

以下のようなテキストファイルから、特定の文字列を抽出して、
エクセルに出力するマクロを教えてください。

<テキストファイル>
AAAAA 123 234;345
BBBBB 123 334;445
CCCCC 123 434;545
DDDDD 123 534;645


＜エクセルファイル＞
エクセルより、A1セルに「BBBBB」を入力。

A2 B2 C2 D2
BBBBB 123 334 445

No.1 ベストアンサー 回答者： fujillin 回答日時： 2020/07/14 15:48

こんにちは

行頭からで比較すればよいものと解釈しました。
ひとまず、テキストファイルから抽出するだけのサンプルです。
（後は、よしなに）

Sub Sample_11766598()
　Dim mPath, fNo, txt
　Dim target As String, n, rg As Range

　target = Range("A1").Value
　If target = "" Then Exit Sub
　n = Len(target)
　Set rg = Range("A2")

　mPath = "C:\Users\hoge.txt"
　fNo = FreeFile

　Open mPath For Input As #fNo
　Do While Not EOF(fNo)
　　Line Input #fNo, txt
　　If Left(txt, n) = target Then
　　　rg.Value = txt
　　　Set rg = rg.Offset(1)
　　End If
　Loop
　Close #fNo
End Sub

この回答へのお礼

早いご回答ありがとうございました。
おかげさまで解決することができました。

お礼日時：2020/07/14 16:41