教程標題：ChatGPT, VBA, Excel 三重奏：輕松打印 PDF!

步驟一：打開Excel，并打開你希望轉(zhuǎn)換為PDF的工作簿。

步驟二：按下快捷鍵Alt + F11以打開VBA編輯器。

步驟三：在VBA編輯器中，選擇菜單欄的插入 - 模塊以創(chuàng)建一個新模塊。

步驟四：在新模塊的代碼窗口中，粘貼下面的代碼：

Sub SaveWorksheetsAsPDF()

??Dim ws As Worksheet

??Dim fPath As String

??Dim fName As String

???

??' 指定保存路徑

??fPath = "C:\Users\Administrator\Desktop\DEMO\"

???

??' 循環(huán)處理每個工作表

??For Each ws In ThisWorkbook.Worksheets

???

????' 文件名使用工作表的名稱

????fName = ws.Name

?????

????' 保存為PDF

????ws.ExportAsFixedFormat _

??????Type:=xlTypePDF, _

??????Filename:=fPath & fName, _

??????Quality:=xlQualityStandard, _

??????IncludeDocProperties:=True, _

??????IgnorePrintAreas:=False, _

??????OpenAfterPublish:=False

??Next ws

???

??' 提示完成

??MsgBox "PDF轉(zhuǎn)換完成"

End Sub

步驟五：點擊保存按鈕，或者使用快捷鍵Ctrl + S來保存這個VBA代碼。

步驟六：現(xiàn)在你可以關(guān)閉VBA編輯器，回到Excel界面。

步驟七：確保你希望保存PDF文件的目錄（這里是"C:\Users\Administrator\Desktop\DEMO"）已經(jīng)存在。

步驟八：按下快捷鍵Alt + F8來打開"宏"對話框，選擇SaveWorksheetsAsPDF宏，然后點擊"運行"。

步驟九：等待程序運行完成，當(dāng)彈出"PDF轉(zhuǎn)換完成"的消息框時，點擊"OK"。你的PDF文件已經(jīng)保存在指定目錄下了。

以上是將Excel工作簿中的每個工作表保存為PDF的完整教程。最后，記得在運行宏之前，先備份你的Excel文件，以防止不必要的錯誤或數(shù)據(jù)丟失。