No.1ベストアンサー
- 回答日時:
Excel 2007 または 2010 から実行するならば以下のような感じか。
調べたい対象ファイルの Workbook オブジェクトの HasVBProject プロパティが True なら VBA コードを含んでいるということになる。
Sub hoge()
' VBA を含むファイルのファイル名出力行番号
Dim rowIdx As Long
rowIdx = 1
' これから開くファイルの VBA を無効にする
Application.AutomationSecurity = msoAutomationSecurityForceDisable
Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
Dim bk As Workbook
Dim f As Scripting.File
For Each f In fso.GetFolder("D:\test\").Files
' xls ファイルを開いていく
If fso.GetExtensionName(f.Name) = "xls" Then
Set bk = Workbooks.Open(f.Path)
' VBA を含んでいればファイル名を書き出す
If bk.HasVBProject Then
ThisWorkbook.Worksheets(1).Cells(rowIdx, 1).Value = bk.Name
rowIdx = rowIdx + 1
End If
bk.Close
End If
Next
' VBA に対するセキュリティを元に戻す
Application.AutomationSecurity = msoAutomationSecurityLow
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- XML エクセルのマクロについて教えてください。 3 2023/02/06 09:06
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/03 13:18
- Excel(エクセル) マクロの付いたExcelが開けません 3 2023/02/01 10:54
- Word(ワード) office 2021へ自分用のクイックアクセスとマクロをコピーしたい 2 2023/03/11 21:15
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/04 17:58
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/08/04 13:56
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/10 09:06
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
このQ&Aを見た人はこんなQ&Aも見ています
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCEL VBA 指定したファイルが...
-
エクセルマクロで不特定なファ...
-
【Excel VBA】ファイル名が一...
-
フォルダ内のブック全部にパス...
-
フォルダ内のexcelファイルを順...
-
エクセル 複数ファイルの一括...
-
エクセル(マクロ)のファイル...
-
ファイルを開かずにマクロを実行
-
エクセルのxls形式からxlsx形式...
-
エクセルデータが突然破損します。
-
複数のエクセルファイルに対し...
-
Accessのaccdbファイルを起動で...
-
VBAでワークブックの名前を変数...
-
ファイルの保存場所を変えたら...
-
【VBA】フォルダ内のファイル全...
-
vba初心者です。 質問です。 毎...
-
エクセルファイルを開く時、関...
-
エクセルファイルをHTML化する...
-
データ参照先が別ファイルの場...
-
EXCELが終了できません
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCEL VBA 指定したファイルが...
-
エクセルマクロで不特定なファ...
-
フォルダ内のexcelファイルを順...
-
VBAでワークブックの名前を変数...
-
エクセル(マクロ)のファイル...
-
エクセルのxls形式からxlsx形式...
-
エクセル 複数ファイルの一括...
-
エクセルのシートの数を数えた...
-
【マクロ】名前を保存する際に...
-
【Excel VBA】ファイル名が一...
-
ファイルを開かずにマクロを実行
-
accessフォルダを移動したらフ...
-
フォルダ内のブック全部にパス...
-
vlookup関数の引数を変数で指定...
-
Excel VBA でファイルが開かれ...
-
ファイルの保存場所を変えたら...
-
Accessのaccdbファイルを起動で...
-
リンク切れチェックを行うマクロ
-
エクセルマクロ 異なるファイ...
-
データ参照先が別ファイルの場...
おすすめ情報