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足够厉害，可以定制出任何功能为你所用。

推荐：只需用一招，就可以学好VBA……

上篇：周报月报季报年报，原来Excel统计数据如此简单

提高工作效率的方法有很多种：

01 如果你不想学习，付费开通各种会员，很多功能都是现成的，点点鼠标就搞定了。

02 每天早上花点时间跟着卢子慢慢积累，渐渐的你也会变得很厉害，处理起来也会得心应手。

……

作者：卢子，清华畅销书作者，《Excel效率手册 早做完，不加班》系列丛书创始人，个人公众号：Excel不加班（ID：Excelbujiaban）