将Excel工作簿另存为pdf

Question

您好，我的Excel工作簿中有50多个工作表，我想将它们保存为单独的pdf文件。 我也想将它们保存在特定的文件夹中，并希望从某些单元格中命名这些文件。

我有基本的基础知识，可以将它们分别保存到桌面，但是无法保存到某些文件夹和名称部分。

Sub Save_As_PDF_To_Desktop_4()
 Dim sh As Worksheet
 For Each sh In ActiveWorkbook.Worksheets
 If sh.Name <> "Instructions" And sh.Visible = True Then sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
 CreateObject("WScript.Shell").specialfolders("Desktop") & "\" & sh.Name & ".pdf" _
 , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
 :=False, OpenAfterPublish:=False
 Next sh
End Sub

有人可以帮我吗？谢谢！