编写宏以在每个工作表上运行其他宏

【问题标题】：Programming a macro to run other macros on each worksheet编写宏以在每个工作表上运行其他宏
【发布时间】：2015-02-18 10:42:04
【问题描述】：

我有一个包含许多不同工作表的 Excel 工作簿。每个工作表都有一个宏，它将工作表保存为 pdf 并以该 pdf 作为附件打开 Outlook。我正在寻找一个放置在一个工作表上的函数，该函数将运行每个宏，而无需在各自的工作表上手动运行每个宏。

【问题讨论】：

【解决方案1】：

假设每个工作表中都有一个名为 SheetMac 的宏。 将以下内容放入标准模块并运行它：

Sub MASTER()
For Each sh In Sheets
    sh.Activate
    Call sh.SheetMac
Next sh
End Sub

【讨论】：

试过这个，得到错误：“运行时错误'438'：对象不支持这个属性或方法”FYI宏名称是：RDB_Worksheet_Or_Worksheets_To_PDF_And_Create_Mail
让它与它一起工作：Sub RunAll() Dim SHt As Worksheet For Each SHt In ThisWorkbook.Worksheets SHt.Activate Call RDB_Worksheet_Or_Worksheets_To_PDF_And_Create_Mail Next SHt End Sub