Excel VBAに関しての質問です. 下記コードでExcelブックをPDFに変換して保存しているのですが、シート範囲を選択できるようにしたいです.

Excel VBAに関しての質問です. 下記コードでExcelブックをPDFに変換して保存しているのですが、シート範囲を選択できるようにしたいです. シートが全部で10枚あるのですが、2枚目から9枚目のみ出力したいです. Dim Path As String, WSH As Variant Set WSH = CreateObject("WScript.Shell") fileName = WSH.SpecialFolders("Desktop") & "\" & ActiveWorkbook.Name & ".pdf" ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _ fileName:=fileName Set WSH = Nothing 以上です. よろしくお願い致します.

Visual Basic | Excel12閲覧xmlns="http://www.w3.org/2000/svg">250

ベストアンサー

0

印刷したいシートを追加(グループ化)して選択 印刷 グループ解除 みたいな流れになるかと(´・ω・) Sub test() Dim Path As String, WSH As Variant, FileName As String Dim i As Long Set WSH = CreateObject("WScript.Shell") FileName = WSH.SpecialFolders("Desktop") &"\"&ActiveWorkbook.Name &".pdf" Sheets(2).Select For i = 3 To 9 Sheets(i).Select False Next i ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ FileName:=FileName Sheets(2).Select Set WSH = Nothing End Sub