エクセルＶＢＡテキストファイルに指定したキーワードがあるかのチェックする方法

Question

エクセルVBAで指定したテキストファイルを開いて特定のキーワード（ツール本体に設定してあり複数有）があるかチェックする方法。
キーワードの書かれている行や桁位置はテキストファイルによって異なり位置は決まっていません。
 １件でも有った場合ツールにキーワードの値を別シートに書き込み、なかった場合はテキストを閉じて次のテキストファイルをチェックするものを作成したいです。

アドバイス宜しくお願いします。

WindFaller · Accepted Answer

>補足：2017/06/11 17:53

その補足説明でも、余計に疑問が増えて、とてもマクロにはならないと思います。

>１.変数で”INPASS”と設定してます。
コードはあるのですか？

>RG00001読み込み後の結果
別の質問で、Excelファイル(.xls)と言った人が、結果的には、拡張子ナシで取り扱っていたのと同じような気がします。そもそも、RG00001て何？プログラム名は、ファイルなのですか？

>チェックしてヒットした管理番号を転記するのが上手くいきません。

管理番号とか、プログラム名とか、読み手側では分からないのです。
何を対象として、どこにあるものなのかとか、補足説明が、逆に混乱させられてしまうのです。前提のない人に、説明するには無理があります。

私からすれば、要は、ファイルの中の、二つの番号を検索すればよいのでは？
検索するなら、1行目とか2行目とか関係ありませんし、行数が必要なら、少し手を加えれば済みます。
その検索値を「キーワード」と呼んでいるようですが、最初の質問とは整合性が合いません。

>例　キーワード１　”ABC001”　ワイルドカードでさがす
>　　キーワード２　”ABC002”　ワイルドカードでさがす
>Open "ファイル名" For Input As #1　でファイルを開き

そもそも、ファイル群のそれぞれのファイルを、Dir 関数で取って一覧にして、そこで二つのキーワードがあれば、ありとするなら、Open For Input も必要ないと思います。
TextStream で、ファイルの中身を取得して、検索を二回すれば済む話です。

方法を指定するなら、ご自身でネットで検索して開発すればできると思います。それならそれで、みなさんがアドバイスしてくれるはずです。#3さんの書いている内容と、私が思惑とは、違っています。

しかし、今の状態では、こちらの思惑のまま進めたほうが良いように思います。それは、やぶ蛇になる可能性がありますが。

たぶん、解答にはなっていないかとは思いますが、サンプルとして掲げておきます。意味は、分かるはずです。

'//標準モジュール
Sub CheckFilesInside()
Dim FName　As String
Dim WShell As Object
Dim myPath As String
Dim s1 As String, s2 As String
Dim objFS As Object
Dim objText As Object
Dim i As Long, j As Long, x As Long
Dim buf
Const ForReading = 1
Const TriStateTrue = -1

ActiveSheet.Range("A1").CurrentRegion.ClearContents
Set WShell = CreateObject("Wscript.Shell")
myPath = WShell.SpecialFolders("MyDocuments") & "\Text\"
s1 = "ABC001"　　'検索値1
s2 = "ABC002"　　'検索値2
Set objFS = CreateObject("Scripting.FilesystemObject")
ActiveSheet.Range("A1:C1").Value = Array("ファイル名", s1, s2)
x = 2
FName = Dir(myPath & "*.txt", vbNormal)　　'ファイル名
Do While FName <> ""
　　If FName <> "." And FName <> ".." Then
　　'SJISの場合
　　Set objText = objFS.OpenTextFile(myPath & FName)
　　''Unicodeの場合
　　''Set objText = objFS.OpenTextFile(myPath & FName, ForReading, False, TriStateTrue)
　　 ActiveSheet.Cells(x, 1).Value = FName
　　 buf = objText.ReadAll
　　 i = InStr(1, buf, s1, vbTextCompare)
　　 j = InStr(1, buf, s2, vbTextCompare)
　　 If i > 0 Then
　　　 ActiveSheet.Cells(x, 2).Value = "●"
　　 End If
　　 If j > 0 Then
　　　 ActiveSheet.Cells(x, 3).Value = "●"
　　 End If
　　End If
　　x = x + 1
　　buf = "": i = 0: j = 0
　　FName = Dir
Loop
End Sub

tatsu99 · Answer

私が回答できる訳ではありませんが、もし私がそのようなマクロを作ってほしいなら、
１．テキストファイルの格納されている箇所（１つのフォルダ内なのか、いろいろ分かれているのか等）
２．テキストファイルのファイル名
３．テキストファイルの文字コード（シフトJISかどうか）
４．テキストファイルに書かれている内容のサンプル

5．キーワードが書かれているシート名はなにか、キーワードはExcelの何行目の何列に書かれているのか。
6．キーワードの数はいくつあるのか。
7．結果を別シートにどのように格納するのか。別シートのシート名は何か。

等の情報を提供します。今のままでは、漠然とした要求なので、No1,No2の方のような一般論の回答だけしか得られないかと。

2014itochan · Answer

テキストファイルの構造が不明なので
一般的なファイルの開き方
http://officetanaka.net/excel/vba/file/file08.htm

と、読んだファイルを　セルに落とす
http://officetanaka.net/excel/vba/file/file08b.htm

セルの検索
http://qiita.com/rohinomiya/items/24c89984206d7e2494e7

http://www.moug.net/tech/exopr/0090052.html

http://www.tipsfound.com/excel/02104

ひとつのファイルに対して手順が出来たら　DO-LOOPで　EOFまで回すだけ

2014itochan · Answer

レスが付かないので
基本、VBAから　WORDを　起こして、オブジェクトを操作することになります。

オブジェクトの宣言
ワードを開く
終わるまでのループに入る
テキストファイルの読み込む
ワードオブジェクトのテキストから　目的のキーワードを探す
一致すれば・・・・
しなければ・・・・
検索キーワードが終われば・・・アウト
ループに戻る
オブジェクトの終了

こんな感じ

Word Document オブジェクト
https://msdn.microsoft.com/ja-jp/library/aa288620(v=vs.71).aspx

方法 : Word 文書でテキストを検索する
https://msdn.microsoft.com/ja-jp/library/aa289004(v=vs.71).aspx

エクセルＶＢＡ テキストファイルに指定したキーワードがあるかのチェックする方法

>補足：2017/06/11 17:53

私が回答できる訳ではありませんが、もし私がそのようなマクロを作ってほしいなら、

テキストファイルの構造が不明なので

レスが付かないので

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

エクセルＶＢＡテキストファイルに指定したキーワードがあるかのチェックする方法