完整代碼如下：

Sub ExportWorksheetToPDF()

??'定義變量

??Dim wsName As String

??Dim ws As Worksheet

??Dim myPath As String

??Dim myFile As String

??Dim myExtension As String

??Dim wb As Workbook

??'設(shè)定Active Workbook

??Set wb = ActiveWorkbook

??'從B2單元格獲取工作表名稱

??wsName = ThisWorkbook.Sheets("Sheet1").Range("B2").Value

??'在活動工作簿中查找具有這個名稱的工作表

??On Error Resume Next '如果沒有找到工作表，跳過錯誤

??Set ws = wb.Sheets(wsName)

??On Error GoTo 0 '重新啟用錯誤

??'如果沒有找到工作表，退出宏

??If ws Is Nothing Then

????MsgBox "No worksheet named " & wsName & " found.", vbExclamation

????Exit Sub

??End If

??'獲取文件路徑，文件名和擴展名

??myPath = wb.Path

??myFile = Left(wb.Name, InStrRev(wb.Name, ".", -1, vbTextCompare) - 1)

??myExtension = ".pdf"

??'導(dǎo)出工作表為PDF

??ws.ExportAsFixedFormat Type:=xlTypePDF, _

??????????????Filename:=myPath & "\" & myFile & "_" & ws.Name & myExtension, _

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

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

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

??????????????OpenAfterPublish:=False

??'確認(rèn)消息

??MsgBox "Worksheet exported as PDF to: " & myPath & "\" & myFile & "_" & ws.Name & myE

xtension

End Sub