如何在VBA中按对象选择特定工作表而非标签名以转换为PDF？

嗨，我来帮你搞定这个VBA选特定工作表转PDF的问题！

你遇到的Sheets(Array(Sheet1, Sheet2, Sheet3)).Select失效的原因很简单：Sheets()方法接受的参数是工作表的显示名称字符串或者索引数字，而Sheet1这类是工作表的「代码名」（就是VBA编辑器里「Microsoft Excel Objects」下面显示的那个名字），它本质是一个工作表对象，直接放进Array()里传给Sheets()是不匹配的。

不过刚好，代码名正是解决你核心需求的关键——它是工作表的「内部标识」，不管用户在Excel界面重命名工作表标签、调整工作表顺序，这个代码名都不会变，完美符合你“即便工作表顺序变更或重命名，仍能选中相同工作表”的要求。

下面给你两种实用的实现方式：

方式1：直接导出PDF（无需选中工作表，更高效） #

这是最优方案，因为导出PDF根本不需要先选中工作表，直接用代码名定位到目标工作表后导出即可：

Sub ExportTargetSheetsToPDF()
    ' 用代码名定义要导出的工作表对象数组
    Dim targetSheets As Variant
    targetSheets = Array(Sheet1, Sheet2, Sheet3)
    
    ' 执行PDF导出，记得修改保存路径和文件名
    targetSheets.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:="C:\你要保存的路径\文件名.pdf", _
        Quality:=xlQualityStandard
End Sub

方式2：精准选中目标工作表（如果有其他操作需要选中状态） #

如果你的流程里确实需要先选中这些工作表，可以用下面的代码，利用代码名精准定位后逐个选中（模拟按住Ctrl选多个的操作）：

Sub SelectTargetSheets()
    ' 先取消所有工作表的选中状态
    Cells(1, 1).Select
    
    ' 选中第一个目标工作表
    Sheet1.Select
    ' 按住Ctrl选中另外两个（参数False表示不取消已选中的工作表）
    Sheet2.Select False
    Sheet3.Select False
End Sub

小提示：确认代码名 #

如果你不确定自己要的工作表对应的代码名，可以在VBA编辑器里选中工作表，按F4打开属性窗口，查看(Name)属性的值——这个就是代码名。也可以在立即窗口（Ctrl+G）里输入Debug.Print Sheet1.Name，回车后会显示这个代码名对应的工作表在Excel界面的标签名称，方便你确认是不是目标工作表。

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