VBA シートの名前がCS1、CS2、CS3・・・とある場合、CSで始まるシートのみをPDFで名前をつけて保存したい時

Question

エクセルに置いて、シートが複数あり、右から
1、2、3、4、5、CS1、CS2、CS3、CS4、CS5　とある場合、
CSから始まるシートのみ、PDFで名前をつけて保存したい場合どうすれば良いでしょうか。

Answer 1

こんな感じでどうでしょうか。

Sub ExportPDF()
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    Dim ws As Worksheet
    For Each ws In wb.Worksheets
        If ws.Name Like "CS*" Then ws.ExportAsFixedFormat xlTypeXPS, ws.Name
    Next
End Sub

Comments

[yu_tommy]

ありがとうございます！できました！

Answer 2

シートの巡回は

for each t_sheet in ブック.sheets

next

名前の取得は、シート.Name

文字列がCSで始まる事の判定は
"ppp" like "CS*"
とか
LEFT("ppp",2)= "CS"
とか

pdfへのエクスポートは
シート.ExportAsFixedFormat Type:=xlTypePDF, fileName:=ファイル名

これで出来るかな。