VBA PDF出力

Sub sample()

Dim exPath As String

Dim ArrayShName() As String

Dim SName(10) As String

SName(0) = "Sheet1"

SName(1) = "Sheet3"

SName(2) = "Sheet4"

'動的配列を初期化

ReDim ArrayShName(0)

For i = 0 To 2

'配列の内容を保持したままシート名を配列に追加する

ReDim Preserve ArrayShName(i)

ArrayShName(i) = SName(i)

Next i

'出力ファイル名

exPath = ThisWorkbook.Path & "\test.pdf"

'//ワークシートをグループ化

Worksheets(ArrayShName).Select

'PDF出力

ActiveSheet.ExportAsFixedFormat _

Type:=xlTypePDF, _

Filename:=exPath

'//ワークシートのグループ化を解除

Worksheets("Sheet1").Select

End Sub