前回の質問と並行しています。
このFileSearch2007では、今のエクセル形式.xlsm に対応していません。
純粋に今の形式に対応可能な構文の記述が全く分かりません。
何かヒントなどをご教授いただければ幸いです。
よろしくお願いいたします。
Function FileSearch2007(dir_path, target_extention)
Set found_files = New Collection
Call FileSearch2007_Repeat(dir_path, found_files, target_extention)
Set FileSearch2007 = found_files
End Function
Private Sub FileSearch2007_Repeat(dir_path, found_files, target_extention)
Set fso = New FileSystemObject
Set target_folder = fso.GetFolder(dir_path)
For Each sub_folder In target_folder.SubFolders
Call FileSearch2007_Repeat(sub_folder.Path, found_files, target_extention)
Next sub_folder
For Each objFile In target_folder.Files
With objFile
If ((UCase(fso.GetExtensionName(.Path))) = target_extention) Then
found_files.Add Item:=.Path
End If
End With
Next objFile
Set fso = Nothing
End Sub
No.1ベストアンサー
- 回答日時:
こんばんは
>今のエクセル形式.xlsm に対応していません。
.xlsmのファイルに記述したときに動作しないという意味でしょうか?
ざっと見る限り、問題はなさそうですが・・
ごく簡単なテストしか行っていませんが、その範囲内ではちゃんと動作しますね。
(指定した拡張子のファイルパスのコレクションを返します)
(Win 10 Excel 2019 環境でテスト)
何をもって「対応していない」と判断なさっているのかわかりませんけれど、エラーが出るのでしょうか?
あるいは、Count=0のコレクションが返されるとか?
エラーが出るとするなら、FSOの参照設定をしていないくらいしか思いつきませんけれど・・
あるいは、特殊なディレクトリ(=例えば、参照権限がないディレクトリ)に対して実行しようとしているとか・・
fujillin様
ご教授有難うございました。
複数の.xlsm ファイルVBAで開いて、必要なデータを読み込んでいます。
そのVBAが落ちてしまうのですが、原因がFileSearch2007だと勘違いしていたようです。
fujillin様の仰るように、この構文は特に問題なく動くことを再確認いたしmした。
ご助言有難うございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) エクセルVBA(実行時エラー438)の対処法を教えてもらえないでしょうか 3 2023/04/22 13:43
- Visual Basic(VBA) vbaの構文の修正相談(xmlファイルを順に開いてコピペ作業) 1 2023/04/22 01:18
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) シート削除のマクロで「deleteメソッドは失敗しました」となります。助けてください! Sub 不要 6 2022/09/08 16:41
- Visual Basic(VBA) vba 重複データ合算 5 2023/07/05 18:55
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルテキストボックスの文...
-
Swing 編集不可でも選択可能なJ...
-
データが入力されている隣のセ...
-
EXCELマクロ 保護されているシ...
-
Excel VBA セルを指定個数ラン...
-
Excelについて
-
エクセルVBA(実行時エラー438...
-
メッセージを1度だけ表示したい。
-
アクティブセルの行のセルを複...
-
VBA セルに合わせて移動するが...
-
VBAで、貼り付け禁止命令を実現...
-
MSFlexGrid オブジェクトについて
-
StringGridでの文字入力制限
-
JTableでのCELLの複数選択
-
(VBA)アクティブセルを起点に...
-
VBAについて教えてください。 E...
-
Excelのセル内にある図形を削除...
-
ハイパーリンクされているファ...
-
複数行選択のテキストボックス
-
セル色を5秒間隔で変える
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELマクロ 保護されているシ...
-
データが入力されている隣のセ...
-
エクセルテキストボックスの文...
-
Excelについて
-
メッセージを1度だけ表示したい。
-
ハイパーリンクされているファ...
-
ダブルクリックすると現在の時...
-
エクセルVBA(実行時エラー438...
-
エクセルVBA セル選択後にカレ...
-
Windowsで動くVBAがmacOSで動か...
-
VBAで、貼り付け禁止命令を実現...
-
VBAで丸をつけたいです。
-
VBA セルに合わせて移動するが...
-
セル色を5秒間隔で変える
-
(VBA)アクティブセルを起点に...
-
Excel VBA ダブルクリックで入...
-
Jtableの特定のセルの背景色や...
-
エクセルのVBAでダブルクリック...
-
VBAのListBoxで複数選択して...
-
マクロを使って画像を貼り付け
おすすめ情報