在日常工作中我们经常需要将工作表导出为PDF，常规的方法需要3-5步 。鼠标至少要点击5次 。对的，没错，是五次！如果要修改PDF的存放位置还要再多点两下 。
是不是觉得很坑?。∈遣皇撬布涓芯跤沂质持傅氖种竿泛芩嵬?。
不信请看下面的GIF：
正常操作
有没有更简单的方法呢？当然有！毕竟偷懒是人类进步的原动力！
那就用VBA好了，只需要点一次鼠标就可以导出PDF 。
对的 ， 不能再多了，仅仅一次点击 。是不是很爽?。±纯纯催拢?
VBA操作导出为PDF
具体实现方法也特别简单，就是新建一个按钮 ， 指定一下模块里的宏就行了 。
可以参见上期的教程，方法截图见下：
具体操作看截图吧
代码你直接复制粘贴到模块里就行了，具体代码如下：
Sub SaveAsPDF()
On Error Resume Next
Dim sName
sName = ActiveWorkbook.Path & "" & Split(ActiveWorkbook.Name, ".")(0) & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sName, Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
以下是代码解释：
就是利用Split函数将你这个工作簿的名子提取出来(文件命名要标准，不要还有两个点，原因不解释了) ， 然后用ActiveWorkbook.Path & ""语句，在这个工作簿的当前位置导出PDF 。
其它语句都是固定格式 ， 我们一开始先用，然后多看多想，慢慢就知道是怎么回事 。
在我看来，很多事情只有通过自己的领悟和学习才能真正掌握 。
也许有同学说这些工具是好东西，但是只能在本工作簿里使用 ， 也就是这个文件里用，其它的Exce文件是用不了的 。那如何可以方便全局化应用呢？
也就是说在我们的电脑里的其它工作簿里也可以用，即程序化应用呢？
当然有办法 ， 不然多没意思?。?
来我看看我的Excel菜单，有我自己定制的主选项卡及这些VBA小工具的图标 。嘎嘎?。?
This's my zone, so it's up to ME!
所以，下一期我将手把手教你如何订制自己的Excel个性化菜单，增加主选项卡，让我的地盘我做主 。以及如何让我们用VBA做的小工具实现程序化应用 。
【手把手教你_用VBA一键导出PDF】喜欢大家围观 。