WPS会员功能免费用，会VBA就是爽！
与 30万 读者一起学Excel
这几天有几个学员需要将工作簿的所有表格转换成PDF，如果是WPS会员，默认就有。
不过，没有WPS会员也没什么大不了，有VBA在手，这些都不是问题。
原始表格
最终效果
1.整个工作簿所有工作表都转为PDF
Sub 另存为PDF()
strPath = ThisWorkbook.Path & "\"
For Each s In Sheets
s.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPath & s.Name & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next
End Sub
2.整个工作簿里面部分工作表转为PDF
加一个IF进行判断，比如工作表名称为Excel不加班的不需要转换，其他全部转换。差别就在红色字体部分。
Sub 另存为PDF1()
strPath = ThisWorkbook.Path & "\"
For Each s In Sheets
If s.Name <> "Excel不加班" Then
s.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPath & s.Name & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End If
Next
End Sub
在开发工具，点VB进去，插入模块，将相应的代码复制粘贴到里面。
将鼠标放在代码中间，点绿色按钮运行，几秒钟就搞定了。
其实，如果你VBA足够厉害，可以定制出任何功能为你所用。
提高工作效率的方法有很多种：
01 如果你不想学习，付费开通各种会员，很多功能都是现成的，点点鼠标就搞定了。
02 每天早上花点时间跟着卢子慢慢积累，渐渐的你也会变得很厉害，处理起来也会得心应手。
……
作者：卢子，清华畅销书作者，《Excel效率手册 早做完，不加班》系列丛书创始人，个人公众号：Excel不加班（ID：Excelbujiaban）