サブフォルダ含むフォルダ内のすべてのファイルから、指定する特定の文字列を含んだファイルの情報をリスト化するVBAを作成したいと考えていますが、うまく動きません。
以下のコードで、[ファイルとフォルダのリストを取得]の部分がコンパイルエラーになります。
どこに抜けがあるのかわからなくなってしまったため、どなかたお力をお貸しいただけますでしょうか。
よろしくお願いいたします。
Sub SearchKeyword()
' 検索対象ディレクトリ
Dim inputRootFolder As String
inputRootFolder = "C:\work"
' 検索キーワード
Dim keyword As String
keyword = "hoge"
' ファイル一覧の取得
Dim fso As FileSystemObject
Set fso = New FileSystemObject
Dim fileList As Collection
Set fileList = New Collection
Dim folderList As Collection
Set folderList = New Collection
' ファイルとフォルダのリストを取得
Call GetFileAndFolderNameList(fso.GetFolder(inputRootFolder), fileList, folderList)
' 検索対象ファイルの正規表現
Dim reFile As RegExp
Set reFile = New RegExp
reFile.Pattern = "\.(xls|xlsx)$"
' 検索対象のbook
Dim inputBook As Workbook
' キーワード検索実行
Application.ScreenUpdating = False
Dim i As Integer
On Error Resume Next
For i = 1 To fileList.Count
' 検索対象ファイルかどうかをチェック
If reFile.Test(fileList(i)) Then
' ファイルオープン
Set inputBook = Workbooks.Open(fileList(i), ReadOnly:=True)
Dim j As Integer
For j = 1 To inputBook.Worksheets.Count
Dim result As Range
' コメントを検索。値を検索する場合はLookIn:=xlValues、数式を検索する場合はLookIn:=xlFormulasとする。
' また、部分一致で検索。完全一致で検索する場合はLookAt:=xlWhole
Set result = inputBook.Worksheets(j).Cells.Find(What:=keyword, LookIn:=xlComments, LookAt:=xlPart)
If Not result Is Nothing Then
Debug.Print (fileList(i))
inputBook.Close SaveChanges:=False
Exit For
End If
Next j
' ファイルクローズ
inputBook.Close SaveChanges:=False
End If
Next i
Application.ScreenUpdating = True
Set inputBook = Nothing
Set reFile = Nothing
Set fileList = Nothing
Set folderList = Nothing
Set fso = Nothing
End Sub
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
こちらですね。
【VBA】ファイルとフォルダのリストを再帰的に取得する
https://minor.hatenablog.com/entry/2015/07/26/23 …
> VBAで特定のフォルダを指定すると、その配下のファイルとフォルダの一覧を取得する関数を作成しました。
呼び出す方だけ持ってきても、肝心のその関数をコピーし忘れたのでは使えませんね。 --;
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
サブフォルダから部分一致のエクセルファイルを検索、選択して開くマクロについて
Excel(エクセル)
-
excel VBA 特定の文字列を含むフォルダを開く方法
Excel(エクセル)
-
VBA フォルダ名に特定の文字を含むフォルダを別フォルダにコピーするコードを教えて下さい
Visual Basic(VBA)
-
-
4
vbaサブフォルダーをワイルドカードで取得したい
Visual Basic(VBA)
-
5
サブフォルダ内のファイルを全部移動させたい。
Visual Basic(VBA)
-
6
サブフォルダー内のPDFファイルを別フォルダにコピーするVBA
Excel(エクセル)
-
7
【VBA】テキストファイルから特定の文字列を抽出して、エクセルに出力する
Excel(エクセル)
-
8
VBA 特定文字含むファイル
Visual Basic(VBA)
-
9
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
10
リンクをアップデートするしないの自動化
Excel(エクセル)
-
11
ExcelVBAで最終行を誤認する問題の回避方法
Visual Basic(VBA)
-
12
多数のサブディレクトリ内のファイルを一括コピーする
その他(プログラミング・Web制作)
-
13
csvファイルを開かずに文字を検索し行を抽出したい
Visual Basic(VBA)
-
14
VBA 最終行に10行、行を挿入する作業。
その他(Microsoft Office)
-
15
部分検索でフォルダ名を検索するマクロ
Excel(エクセル)
-
16
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
17
Excel vbaで特定の文字以外が入っている時、メッセージを表示させるプログラムについて
Visual Basic(VBA)
-
18
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
19
VBA 空白セルを削除ではない方法で詰めるやり方
Visual Basic(VBA)
-
20
excel VBA 部分一致の名前をパスに指定する方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
vbaサブフォルダーをワイルドカ...
-
「エクセルファイルが開いてい...
-
VBA ディレクトリ名をワイルド...
-
サブフォルダ含むフォルダ内の...
-
VB.Netソリューションでフォー...
-
FTP対応のアプリケーション
-
VBA:ファイルプロパティの一部...
-
visual studioでフォームデザイ...
-
FileDialog オブジェクトでファ...
-
適当な英文の書かれたファイル(...
-
ffftpでファイル取得が0バイト...
-
VBAでパワーシェルを実行したい...
-
ファイルのアクセス回数について
-
ファイルコピーのスクリプトで...
-
Windows10でコマンドプロンプト...
-
Gitについて質問。 クローンし...
-
【VB.NET】App.configにファイ...
-
EXCEL 検索時の設定
-
初心者powershellのPS1ファイル...
-
windowsでテキストファイルの各...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
vbaサブフォルダーをワイルドカ...
-
FileDialog オブジェクトでファ...
-
サブフォルダ含むフォルダ内の...
-
ffftpでファイル取得が0バイト...
-
動かなくなってしまった古いVBA...
-
excel マクロ PDF化の際のエラ...
-
VBからExcelファイルを開くとき...
-
「エクセルファイルが開いてい...
-
VBAでフォルダ内のhtmlファイル...
-
複数のワークブックのVBAを変更...
-
ExcelVBA 文字コード変換
-
Wordのプロパティ・総ページ数...
-
「AccessViolationException」...
-
AccessからOLEオブジェクト型の...
-
エクセルのVBAで開いている...
-
VBAで色々な種類のファイルを開く
-
VBAでCSVファイルを読み込もう...
-
VB.net XMLの作成方法 Iniの代替
-
【ACCESS VBA】アクセスからデ...
-
VBA、ファイル名検索から開く、...
おすすめ情報