【エクセルマクロ】テキストファイルから文字列検索:自動化で作業効率アップ

vba-テキストファイル文字列検索--アイキャッチ ExcelVBA

エクセルマクロで、テキストファイルから特定文字を検索するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひお試しください!

テキストファイルから文字列検索

以下のマクロを実行すると、テキストファイル内の文字列を検索します。


Sub メモ帳に指定文字があるか検索()

Dim Txt_Path As String
Dim LastRow As Long
Dim SerchWord As String
Dim i As Long
Dim Chk As Long

    'テキストファイルのパスを変数へ格納
    Txt_Path = "C:\Users\admin\Documents\チェックリスト.txt"
    
    SerchWord = "ハスカップ"
    Chk = 0

    'テキストファイルを開く
    Workbooks.OpenText FileName:=Txt_Path

    '最終行を取得
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = 1 To LastRow
        If Cells(i, 1) = SerchWord Then
            Chk = 1
            Exit For
        End If
    Next i

    'ファイルを閉じる
    ActiveWindow.Close False
    
    If Chk = 1 Then
        MsgBox SerchWord & vbCrLf & "存在しています"
    Else
        MsgBox SerchWord & vbCrLf & "存在していません"
    End If

End Sub

 

検索文字が存在する場合

一致する文字列がある場合は、

「存在しています」とメッセージボックスに表示します。

検索文字が存在しない場合

一致する文字列がない場合は、

「存在していません」とメッセージボックスに表示します。


 
 
この記事がお役に立ちますと幸いです。
 

【エクセルマクロ】テキストファイルを自動操作する:超便利8選
...

 

「プログラマーの本気がExcelを覚醒させる 超絶ExcelVBA」
ExcelVBAでワンランクアップできる書籍
具体的で応用が利く技をたくさん掲載