★Excelファイルの指定したシートを、一括PDF化するマクロが組めない★

こんにちは、VBA初心者です。
同一フォルダ内のエクセルファイルの指定した複数シートのみ、
一括でPDF化するマクロを組みたいと考えております。
以下で「同一フォルダの一括PDF」までは実施できたのですが、
『指定したシートのみPDF化』が中々できません。。

(具体的には「シート名」を複数指定して、その指定したシートのみPDF化するイメージです。
例えば、ファイルにある「表紙」「見積」「請求書」「メモ」という４つシートがあるなかで、
「表紙」「見積」を指定する)

もし詳しい方がいらっしゃったら、ご教示いただけると幸いです。
よろしくお願いいたします。


---------------------------
Sub convertToPdf()
Dim buf As String
Dim cnt As Long
Dim files() As String
Dim rc As Integer
Dim item As Variant
Dim fullname As String
Dim fullnamePdf As String
Dim objExcel As Object 'Excel.Application
Dim objBook As Object 'Excel.Workbook
Dim objFs As Object 'Scripting.FilesystemObject

Set objFs = CreateObject("Scripting.FilesystemObject")

buf = Dir(ThisWorkbook.Path & "\*.xlsx")
cnt = 0
Do While buf <> ""
ReDim Preserve files(cnt)
files(cnt) = buf
cnt = cnt + 1
buf = Dir()
Loop

If cnt = 0 Then
MsgBox (".xlsxファイルが見つからないため終了します。")
Else
rc = MsgBox(".xlsxファイルが" & cnt & "件見つかりました。一括変換処理を行いますか？", vbYesNo + vbQuestion, "確認")
If rc = vbYes Then
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
For Each item In files()
fullname = ThisWorkbook.Path & "\" & item
fullnamePdf = ThisWorkbook.Path & "\" & objFs.GetBaseName(item) & ".pdf"
Set objBook = objExcel.Workbooks.Open(fullname, , True)
objBook .ExportAsFixedFormat 0, fullnamePdf
objBook.Close (False)
Set objBook= Nothing
Next item
objExcel.Quit
Set objExcel = Nothing
MsgBox ("処理が完了しました。")
Else
MsgBox ("処理を中断しました。")
End If
End If

Set objFs = Nothing
End Sub

No.3 回答者： bonaron 回答日時： 2017/03/02 18:24

> Set objBook = objExcel.Workbooks.Open(fullname, , True)

> objBook .ExportAsFixedFormat 0, fullnamePdf
　　　↓　　↓　　↓
　Set objBook = objExcel.Workbooks.Open(fullname, , True)
　objBook.Worksheets(Array("表紙", "見積")).Select
　objBook.ActiveSheet.ExportAsFixedFormat 0, fullnamePdf

No.2 回答者： tatsu99 回答日時： 2017/03/02 13:05

現行ではbook1.xlsxがあるとbook1.pdfを作成していますが、

「表紙」「見積」のシートをPDF化すると別々のファイルになってしまいます。（シート単位でPDF化する為）
それでも良ければ、可能です。book1_表紙.pdfとbook1_見積もり.pdfのようなファイルができます。

１つのPDFファイル内に「表紙」「見積」の内容を格納したいということであれば、NO1の方が書かれているように
ページ指定するしかないかと。（予めの指定ページに収まるように表紙シートと見積もりシートをセットしておく必要がありますが）

No.1 回答者： yokomaya 回答日時： 2017/03/02 01:10

＞『指定したシートのみPDF化』が中々できません

objBook .ExportAsFixedFormat 0, fullnamePdf
がブックのPDF化だけど
説明には
object.ExportAsFixedFormat ( type [, filename, quality, includedocproperties, ignoreprintareas, from, to, openafterpublish, fixedformatextclassptr ] )
fromとtoでページ指定が出来るらしいから
印刷したいページを一番、２番に移動したらいいんじゃない？
マクロの記録でいけるんじゃないかな？