代码核对

schoping

之前没有学过VBA,下面代码是我根据网上资料写的。
判断：
如果SHEETS(AZ)中A1格=1时，打印SHEETS(B),并以PDF形式存在桌面上，名字为SALES
如果SHEETS(AZ)中A1格<>1时，打印SHEETS(G),并以PDF形式存在桌面上，名字为SALES2
运行时提示错误，请大家帮我看下问题出在哪里，谢谢！

Sub 打印2()
If Sheets("AZ").Range("A1").Value = 1 Then
Sheets("B").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\USER\ERIC\桌面\sales.pdf"
Else
Sheets("G").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\USER\ERIC\桌面\sales2.pdf"
End If
End Sub

vbee

代码没有问题，查路径是否正确
EXCEL版本是否支持PDF

要的就是你

这个不知道，清高手指点吧

schoping

vbee 发表于 2018-7-31 10:49
代码没有问题，查路径是否正确
EXCEL版本是否支持PDF

OFFICE 365带的EXCEL 2016
试了下还是不行

schoping

不用麻烦了，我不指定路径，直接到了桌面上，虽然没有能解决指定路径的问题，但是也能用了！