本例中如何避免VBA中的SELECT/ACTIVE语句？

Question

需要在一个PDF文件中导出所有的表单，所以我找到了这段代码，它工作（导出一个单PDF，每个表单有一页）。但是我不想使用select/active语句，我更喜欢使用存储对象的变量。

问题：在这段代码中如何避免select/ActiveSheet？

ThisWorkbook.Sheets(Array("Sheet1", "Sheet2")).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\tempo.pdf", Quality:= xlQualityStandard, IncludeDocProperties:=True, _
     IgnorePrintAreas:=False, OpenAfterPublish:=True

Answer 1

TL；DR：在这种情况下，您无法避免select，因为您需要activesheet.exportasfixedformat的后期绑定行为，这显然考虑了所选的工作表--而早期绑定的worksheet.exportasfixedformat没有这样做。

ExportasFixedFormat是Excel.Worksheet的成员。

ActiveSheet不是Excel.Worksheet但它是对象（因此对其进行的任何成员调用都必须是后期绑定的）。这是一个重要的细节。

当您执行此操作时：

ThisWorkbook.Sheets(Array("Sheet1", "Sheet2")).Select

不针对工作表对象进行.select成员调用：给定工作表名称数组，sheets（或worksheets)属性将返回Excel.sheets集合对象，而这正是对.select进行调用的对象。这也是一个重要的细节。

您可能知道，在Excel对象模型中处理的对象是COM对象。在COM中，接口是可扩展的，除非另有规定：这就是您如何编写的：

Debug.Print Application.Sum(2, 2)

这就是这样一种情况:exportasfixedformat成员在运行时早期绑定时的行为是一种方式，而在晚期绑定时的行为是不同的。使用后期绑定调用，您可以导出Sheets集合中每个工作表的一个页面的单个PDF文档，而针对worksheet.ExportAsFixedFormat的早期绑定调用仅导出该工作表，并且由于没有Sheets.ExportAsFixedFormat，您不能直接针对Sheets.ExportAsFixedFormat进行后期绑定调用以避免。选择调用和后续的ActiveSheet后期绑定成员调用。

还有许多其他成员，特别是worksheetfunction成员，在后期绑定与早期绑定时表现不同。