如何改写VBA多工作表导出PDF代码以避免Select/Active语句？

嘿，这确实是个值得优化的点！依赖Select和ActiveSheet的代码很容易因为用户操作或者环境变化出问题，改用对象变量的方式会让代码更稳健、可读性也更好。

其实你根本不需要选中工作表再导出——Excel的工作表集合本身就支持直接调用ExportAsFixedFormat方法。直接看修改后的代码：

Dim exportSheets As Sheets
Set exportSheets = ThisWorkbook.Sheets(Array("Sheet1", "Sheet2"))

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

关键变化说明： #

• 新增了exportSheets变量，直接把你要导出的工作表集合赋值给它，完全替代了Select选中的操作
• 直接调用变量的ExportAsFixedFormat方法，再也不需要依赖ActiveSheet这个不稳定的活动对象
• 代码结构更清晰，一眼就能看出是对哪部分工作表进行操作

这样改完之后，代码的逻辑更直接，也不用担心运行过程中因为切换工作表导致导出内容出错啦～

内容的提问来源于stack exchange，提问作者thereal_92