プロが教える店舗&オフィスのセキュリティ対策術

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

<テキストファイル>
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

A 回答 (1件)

こんにちは



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

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
    • good
    • 0
この回答へのお礼

助かりました

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A