ここから本文です

エクセルについているマクロの有無について

itu********さん

2013/10/209:51:15

エクセルについているマクロの有無について

多数のエクセルファイルがある中からマクロが含まれているファイルだけを簡単に見つける方法はあるのでしょうか?
ファイルが1000ちかくあり一つ一つ開いて確認する手間を省きたいのです。

補足補足
失礼しました。
バージョンは2000です。
新しいものに変える前の調査でどのくらいのエクセルにマクロが含まれているか調べる必要が出てきたのですが、
なにぶん各端末をしらべなくてはならず数が膨大なためなにかいい方法は無いかなと思い質問させていただきました。

この質問は、活躍中のチエリアン・専門家に回答をリクエストしました。

閲覧数:
5,521
回答数:
1
お礼:
50枚

違反報告

ベストアンサーに選ばれた回答

ish********さん

編集あり2013/10/213:49:01

バージョンが書いてありませんね
2007以降ならば拡張子が違いますね
VBAはxlsm
ないものはxlsx
2007以前ならばVBAでコードがあるかチェックするしかないでしょう

追記
コードを調べるマクロです
調べたいホルダーに保存して実行するだけです
Sub sample()
Dim WB As Workbook, WBA As Workbook
Dim WS As Worksheet, vbc As Object
Dim strPATH As String, strDir As String
Dim i As Long, j As Long

Set WB = ThisWorkbook
With WB
Set WS = WB.Worksheets(1)
strPATH = WB.Path & "\"
strDir = Dir(strPATH & "*.xl*")
Do Until strDir = ""
If strDir <> WB.Name Then
Set WBA = Workbooks.Open(strPATH & strDir)
For Each vbc In WBA.VBProject.VBComponents
j = 0
If vbc.Type <> 100 Then
j = j + 1
End If
Next
If j > 0 Then
i = i + 1
WS.Cells(i, 1) = strDir
End If
WBA.Close False
Set WBA = Nothing
End If
strDir = Dir()
Loop
End With
End Sub

この回答は投票によってベストアンサーに選ばれました!

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる