EXCELのマクロでテキストを読み込む方法

質問

EXCELのマクロを使って、テキストファイルから、ある文字列を検索し、コピーしEXCELのシートのセルにペーストするマクロの書き方をご存知の方は、ご教示願います。
例えば、テキストファイル中の「dog」という文字列を検索して、EXCELの決まったセル（A、１）にコピペするというマクロです。
よろしくお願い申し上げます。

回答No.1

BLUEPIXY · ベストアンサー

色々方法はあると思うけど、
Dim objFs, file, filename
Dim oneLine
Set objFs = CreateObject("Scripting.FileSystemObject")
Application.FileDialog(msoFileDialogOpen).Show
filename = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
'filename = "E:\Work\sample\Excel\fileread\data.txt"
Set file = objFs.OpenTextFile(filename, 1) 'read Only

Do Until file.AtEndOfStream
oneLine = file.ReadLine
If InStr(oneLine, "dog") <> 0 Then
Sheets("sheet2").Range("A1").Value = "dog" 'oneLine 'データの書き出し
Exit Do
End If
Loop
file.Close
見たいな感じで、
DOG,Dog,dogなどにも対応させるには、もう一工夫必要ですけどね。
「dog」を探してdogをセルにそのまま入れるのは、あんまり意味がないような気がします。
勘違いしてますか、私。

お礼

早速のご回答ありがとうございます。テキストファイルから単語を検索する部分が特にわからなかったので全然勘違いではないです。ありがとうございました。

回答No.2

kakusuke

If InStr(oneLine, "dog") <> 0 Then
を
If InStr(Ucase(oneLine), Ucase("dog")) <> 0 Then
にしたら、
大文字、小文字入り混じっても大丈夫です。

お礼

ご回答ありがとうございます。早速やってみます。ご親切に御礼申し上げます。