vba，excel - 使用xls文件檢測宏中有一個？

Question

有沒有人知道一個編程方式來確定一個Excel文件是否有一個宏？我有數百個excel文件，我需要知道哪些文件中有宏？

Answer 1

我有2種練習冊（1個爲宏&另一個試了一下沒有宏）。

Application.AutomationSecurity = msoAutomationSecurityForceDisable 

Workbooks.Open("c:\temp\myfileWithMacros.xls") 
Msgbox ActiveWorkBook.HasVBProject 
ActiveWorkBook.Close 

Workbooks.Open("c:\temp\myfileWithoutMacros.xls") 
Msgbox ActiveWorkBook.HasVBProject 
ActiveWorkBook.Close 

希望有所幫助。

Answer 2

您可以通過收集Workbook.VBProject.VBComponents

迭代如果在那裏發現了什麼，你有宏

Algorightm

Loop through all XLS workbooks 
    Open Workbook 
     If Workbook.VBProject.VBComponents.Count > 0 Then 
      HasCodBehind = True 
      '// Do what you need to here 
     End If 
    Close Workbook 
End Loop