![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
はじめて質問させていただきます,kokko1719です.
今,ExcelVBAを使ってツールを作成しています.
その中で,フォルダ内にある複数のHTMLファイルから特定の文字列を検索し,抽出するコードを作成したいのですが,うまくいきません.
使っているExcelが2007なのでFileSearchを使うことができません.
一応,再帰処理を実装してファイルを探索するところまでは出来ている…と思います.(特定のフォルダを探しに行って○個見つかりましたとメッセージは出ます)
その後のファイルを開き検索,特定のシートに抽出することができません.
現在作成しているコードでは,検索条件が1つしかないのですが,
実際は,HTMLファイルで使用している画像ファイル名を検索して抽出したいので,条件も複数指定したいと思っています(jpg,gif,pdfなど).
ExcelVBAを学び始めて日が浅いため作業が止まってしまっています.きっと調べ方も悪いのでしょうが….
どうか教えていただけましたら幸いです.
No.1ベストアンサー
- 回答日時:
File名を取得するところまでは出来ていると思いますので
Open File名 For Input As #1
While Not EOF(1)
Input #1, d
'"*.gif" を検索するなら
If InStr(d, ".gif") > 0 Then
Debug.Print d
End If
Wend
Close 1
で File File名 内の 文字列 gif の含まれる
テキストd が出力できます。
回答ありがとうございます.遅くなりましてすみません.
今試しに入力してみたところ,エラーは出なかったのですが,Excelセル内に何も入力されません.
ファイル名の取得が出来ていない…ということでしょうか;;
今現在いただいたコードを組み込んでこういうプログラムになっているのですが↓
dir_path = Range("A1")
' 探索したいファイルの拡張子
target_extention = UCase("html")
' 探索
Set found_files = FileSearch2007(dir_path, target_extention)
' 見つかったファイルに対して
found_num = found_files.Count
If found_num = 0 Then
MsgBox "見つかりません"
Else
MsgBox found_num & "個見つかりました"
End If
For i = 1 To found_num
Open found_files(i) For Input As #1
While Not EOF(1)
Input #1, d
'"*.gif" を検索するなら
If InStr(d, ".gif") > 0 Then
Debug.Print d
End If
Wend
Close 1
Next i
End Sub
最初試行錯誤してエラーが出ている時には,found_files(i)のところにカーソルを合わせると,パスとファイル名が出ていたので,ファイル名は取得出来ていると思っていたのですが…
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- フリーソフト テキストファイル内を検索したい 1 2022/06/01 08:33
- その他(ソフトウェア) 一太郎付属の”全件検索”ツールの不具合 3 2023/07/25 15:03
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- WordPress(ワードプレス) WordPressのサイトにPDFをアップロードした際にGoogleなどの検索結果に出ないでほしい 1 2022/08/03 10:44
- Visual Basic(VBA) エクセルのマクロについて教えてください 物件ごとのフォルダを作成してます そのフォルダ内にサブフォル 2 2023/07/02 17:58
- PHP htmlspecialcharsが機能していないです。 バグですか? 1 2022/04/05 01:22
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- その他(プログラミング・Web制作) python OpenPyXLを使って出力結果をエクセルに書き込み 2 2022/06/04 19:46
- Excel(エクセル) Excelを開くとエラーが出る 2 2022/10/03 16:13
- YouTube ユーチューブへの動画投稿にサムネイルを付ける方法は? 1 2022/07/21 23:45
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
音楽 画像 動画 まとめて言うと...
-
パソコン内にあるwordファイル...
-
複数のword文書の中の語句(単...
-
ドライバが入らない
-
HTMLファイル内の文字列検索
-
spvという拡張子を開きたい
-
office文書の検索について
-
スタート→検索→ファイルやフォ...
-
Wordで保存していた文章が消え...
-
cidaemon?
-
ファイルを一箇所にまとめたいです
-
ローカルで動作する検索システム
-
bingのアイコン削除方法
-
Windows11のデスクトップアイコ...
-
重複ファイルとは何ですか?削...
-
ファイルを隠し設定していない...
-
共有フォルダに入っているファ...
-
動画をDVDに書き込んだが、...
-
imgファイル→isoファイル変換
-
複数フォルダをまとめて移動す...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
複数のword文書の中の語句(単...
-
音楽 画像 動画 まとめて言うと...
-
ファイルを一箇所にまとめたいです
-
PCの検索でExcelファイルのみ...
-
PC内の「全てのエクセルファイ...
-
『メモ帳』内の文字の検索について
-
Word文書から特定の文字を抜き...
-
spvという拡張子を開きたい
-
エクセルでの検索が遅い
-
指定した文字列を含まないファ...
-
カンマを含むファイル名の検索...
-
パソコン内にあるwordファイル...
-
ファイル形式を指定して検索す...
-
Outlookのインデックス処理を速...
-
Google Driveのインデックスを作成
-
PDFファイルを検索に引っか...
-
エクスプローラーでのファイル...
-
インターネットショートカット...
-
Word で作った文書がどこに保管...
-
HTMLファイル内の文字列検索
おすすめ情報