KutoolsforOffice — 一套方案,五大工具。事半功倍。三月特賣:20% 折扣

如何使用命令按鈕將目前作用中的工作表另存為 PDF 檔案(在 Excel 中)?

作者Siluvia修改日期

當您在 Microsoft Excel 中作業時,可能會需要將作用中的工作表另存為 PDF 檔案。本文將教您如何透過命令按鈕搭配 VBA 程式碼,輕鬆將作用中的工作表儲存為 PDF。此外,若您希望將目前工作簿中的特定範圍,或每張工作表個別另存為 PDF 檔案,本文同樣能協助您順利達成。

使用命令按鈕搭配 VBA 程式碼將作用中的工作表另存為 Pdf 文件
輕鬆將作用中或每張工作表個別另存為 Pdf 文件,使用 Kutools for Excel


使用命令按鈕搭配 VBA 程式碼將作用中的工作表另存為 Pdf 文件

您只需執行下列 VBA 程式碼,即可透過點擊命令按鈕,將作用中的工作表另存為 PDF 檔案。請依照以下步驟操作:

1. 首先,您需要在本機磁碟(C:)中建立一個名為「PDF」的資料夾,用來儲存新轉換的 PDF 檔案。

2. 請點擊開發人員 > 插入 > 命令按鈕(ActiveX 控制項),即可插入命令按鈕。請參閱截圖:

從 [開發人員] 索引標籤按一下命令按鈕

2. 接著,在需要新增列的工作表中插入命令按鈕,右鍵點擊該按鈕,並從右鍵選單中選擇內容

從右鍵選單按一下 [屬性]

3. 在內容對話方塊中,於標題方塊(位於)分類頁籤下)輸入命令按鈕的顯示文字,然後關閉對話方塊。

在 [屬性] 對話方塊中輸入命令按鈕的顯示文字

您可看到命令按鈕的顯示文字已更新為如下圖所示。

命令按鈕的顯示文字已變更

4. 再次右鍵點擊命令按鈕,然後從右鍵選單中點選檢視程式碼

從右鍵選單按一下 [檢視程式碼]

5. 在開啟的 Microsoft Visual Basic for Applications 視窗中,請將程式碼視窗內的原始程式碼替換為下列 VBA 程式碼。

VBA 程式碼:使用命令按鈕將作用中的工作表另存為 PDF

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:="C:\PDF\Export.pdf", _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub

注意:在程式碼中,CommandButton 1 是您用來將目前工作表另存為 PDF 檔案的命令按鈕名稱;「C:\PDF\Export.pdf」則是儲存該 PDF 檔案的路徑與檔名。

6. 同時按下 Alt+Q 鍵,即可關閉 Microsoft Visual Basic for Applications 視窗。接著,於開發人員頁籤中、設計模式下方關閉設計模式。

現在,只要點擊命令按鈕,作用中的工作表就會以「Export」為檔名,儲存為 PDF 檔案,並存放於指定位置。


使用 Kutools for Excel 將每張工作表個別另存為當前工作簿的 Pdf 文件

這裡推薦使用分割工作簿工具(屬於 )Kutools for Excel),輕鬆將作用中的工作表另存為 PDF 檔案!此外,您還能運用此工具,將目前工作簿中的每張工作表個別儲存為 PDF 檔案,提升效率、省時又方便!

Kutools for Excel 提供超過 300 項進階功能,簡化複雜作業,提升創造力與效率。整合 AI 功能,Kutools 能精準自動化各項任務,讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊……         免費試用……

1. 在需要將每張工作表個別另存為 PDF 檔案的活頁簿中,點擊 KUTOOLS PLUS > 活頁簿 > 分割工作簿。請參閱截圖:

按一下 Kutools 的「分割活頁簿」功能

2. 在分割工作簿對話方塊中,請依下列方式設定:

2.1) 僅勾選當前工作表名稱於工作表名稱方塊中;
2.2) 從 PDF (*.pdf)選項中選擇指定保存格式下拉列表;
2.3) 點擊分割按鈕,隨即會彈出選擇資料夾對話方塊,請指定一個資料夾以儲存 Pdf 文件;

在「分割活頁簿」對話方塊中指定選項

接著,所選的工作表將立即另存為 PDF 檔案。

所選工作表已儲存為 PDF 檔案

注意事項

1. 您可在工作表名稱方塊中勾選多個工作表名稱,一次將它們個別另存為 Pdf 文件;
2. 除了將工作表另存為 Pdf 文件外,您也可依需求將工作表另存為 .txt 或 .csv 檔案。

相關文章

最佳 Office 生產力工具

🤖KUTOOLS AI 助手:基於以下內容徹底革新數據分析:智慧執行     產生程式碼  建立自訂公式    分析資料並產生圖表  呼叫增強函數……
熱門功能尋找、醒目提示或標記重複值     刪除空白行     合併列或儲存格而不遺失資料     不使用公式的四捨五入……
高級 LOOKUP多重條件 VLookup    多重數值 VLookup     跨多個工作表 VLookup      模糊查找……
高級下拉列表快速建立下拉式清單     相依式下拉式清單     多選下拉式清單……
欄位管理員新增指定數量的欄位移動欄位切換隱藏欄位的可見狀態比較範圍與欄位……
精選功能網格聚焦     設計視圖   增強編輯欄    工作簿與工作表管理員     資源庫(自動文字)  日期提取     合併工作表    加密/解密儲存格    依清單傳送電子郵件     超級篩選      特殊篩選(篩選粗體儲存格/斜體/刪除線……) ......
頂尖 15 工具組12 文字工具添加文本刪除特定字符,……)   50+ 圖表 類型甘特圖,……)   40+ 實用公式基於生日計算年齡,……)   19 插入工具插入二維碼從路徑插入圖片,……)   12 轉換工具金額轉大寫匯率轉換,……)   7 合併和拆分工具高級合併行分割儲存格,……)……以及更多
在您的慣用語言中使用 Kutools—支援英文、西班牙文、德文、法文、中文及另外 40+ 種語言!

運用 Kutools for Excel 強化您的 Excel 技能,體驗前所未有的高效能!Kutools for Excel 提供超過 300 項進階功能,大幅提升生產力並節省寶貴時間。立即點擊,取得您最需要的功能……


Office Tab 為 Office 帶來分頁式介面,讓您的工作更輕鬆自在!

  • 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能,以及 Access、Visio 與 Project。
  • 在同視窗的新分頁中開啟並建立多份文件,而非另開新視窗。
  • 每天為您提升 50% 的工作效率,並省下數百次滑鼠點擊!

所有 Kutools 增益集,一個安裝程式

Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集,以及 Office Tab Pro,非常適合需要跨多個 Office 應用程式協作的團隊使用!

ExcelWordOutlookTabsPowerPoint
  • 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集,以及 Office Tab Pro
  • 一個安裝程式,一個授權— 數分鐘內即可完成設定(支援 MSI)
  • 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
  • 30 天完整功能試用— 無需註冊,無需信用卡
  • 超值之選— 比單獨購買各增益集更省費用