Option Explicit
Public Sub ListObjects()
Dim oMacroSheet As Object
'//Find all Excel4MacroSheets
Debug.Print "------- Excel 4 Macro Sheets ----------"
For Each oMacroSheet In ThisWorkbook.Excel4MacroSheets
Debug.Print oMacroSheet.Name
Next oMacroSheet
'//Find all Excel4InternationalMacroSheets
Debug.Print "------- Excel 4 International Macro Sheets ----------"
For Each oMacroSheet In ThisWorkbook.Excel4IntlMacroSheets
Debug.Print oMacroSheet.Name
Next oMacroSheet
End Sub
1 回答
它可能是ae Excel 4 Macro Sheet或Excel 4 International Macro Sheet . 这些东西看起来就像工作表,如果它们是Activesheet,TypeName仍将返回'worksheet' . 但是,它们的行为不像工作表 - 如果你(比如说)将
=A1*5
放在单元格B1中,它将只显示为文本 .您可以通过枚举相关集合在IDE中列出所有这些宏表: