Excel VBA脚本导出PDF仅含最后一个工作表，求排查原因

嘿，我来帮你排查这个问题！这种只导出第二个工作表的情况，大概率是你在指定导出范围时的逻辑出了问题，下面是最常见的几个原因和对应的修复方案：

常见问题原因及修复方法 #

1. 分开导出导致覆盖（最典型） #

如果你的代码是分别对两个工作表执行导出命令，比如：

' 先导出第一个工作表
Sheets("Sheet1").ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=yourSavePath
' 再导出第二个工作表，直接覆盖了之前的PDF
Sheets("Sheet2").ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=yourSavePath

这种写法会让第二个工作表的PDF直接覆盖第一个的，最终只留下第二个的内容。

修复方案：把两个工作表作为一个集合一次性导出，用数组指定要导出的工作表即可：

' 将两个工作表放入数组，一次性导出到同一个PDF
Sheets(Array("Sheet1", "Sheet2")).ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=yourSavePath, _
    Quality:=xlQualityStandard

2. 选择工作表时误取消了第一个的选中状态 #

如果你的代码是通过Select来选中工作表，然后导出ActiveSheet，比如：

Sheets("Sheet1").Select
Sheets("Sheet2").Select ' 这里会自动取消Sheet1的选中，只选中Sheet2
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yourSavePath

VBA里单独用Select选第二个工作表时，会默认取消之前选中的内容，所以最终只有第二个工作表被导出。

修复方案：选第二个工作表时加上False参数，保留第一个的选中状态：

Sheets("Sheet1").Select
Sheets("Sheet2").Select False ' 加上False，不取消之前的选中
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yourSavePath

不过更推荐前面的数组导出方式，比用Select操作更高效且不易出错。

3. 批量处理中工作表对象被错误覆盖 #

如果这是批量流程的一部分，可能你在处理时不小心把指向第一个工作表的对象替换成了第二个，比如：

Dim targetWs As Worksheet
Set targetWs = Sheets("Sheet1")
Set targetWs = Sheets("Sheet2") ' 这里直接覆盖了targetWs的指向
targetWs.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yourSavePath

这种情况下targetWs最后只指向第二个工作表，自然只会导出它。

修复方案：确保你是把两个工作表都加入到导出集合中，而不是替换对象，比如用数组存储要导出的工作表列表，再统一导出。

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