vba 將excel轉換pdf（手把手教你用VBA一鍵導出PDF）

2023-07-30 17:45:22 2

在日常工作中我們經常需要將工作表導出為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做的小工具實現程序化應用。

喜歡大家圍觀。