如何将Excel两个指定工作表分别导出PDF保存到不同路径

你当前代码调用的是ActiveWorkbook.ExportAsFixedFormat方法，这个方法的作用对象是整个工作簿，默认会导出所有可见工作表，所以两个输出路径的PDF都会包含全部工作表，不符合单表导出的需求。

直接指定要导出的工作表对象调用导出方法即可，同时修正了原代码中变量声明不匹配的问题：

ActiveWorkbook.CheckCompatibility = False

Dim Path1 As String
Dim Path2 As String
Dim filename As String
Dim savelocation1 As String
Dim savelocation2 As String

Path1 = Blad1.Range("N67")
Path2 = Blad1.Range("N66")
filename = Blad1.Range("N68")

' 可选逻辑：判断路径末尾是否有反斜杠，避免路径拼接错误
If Right(Path1, 1) <> "\" Then Path1 = Path1 & "\"
If Right(Path2, 1) <> "\" Then Path2 = Path2 & "\"

savelocation1 = Path1 & filename
savelocation2 = Path2 & filename

' 单独导出Werk工作表到savelocation1
Sheets("Werk").ExportAsFixedFormat Type:=xlTypePDF, _
filename:=savelocation1

' 单独导出Klant工作表到savelocation2
Sheets("Klant").ExportAsFixedFormat Type:=xlTypePDF, _
filename:=savelocation2

如果你的工作表是本地语言命名，只需要确认Sheets()括号内的工作表名称和你实际工作簿内的名称完全一致即可，不需要修改其他逻辑。

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