VBA シート名がCSで始まるシートのみ、PDF化して保存。その際に指定の名前を付けて保存したい。

Question

こんにちは。社内で業務改善ツールをつくるのに当たり立ち止まってしまいました。
やりたいことは2点です。
１、ブックの中の複数シートのうち、CSから始まる名前のシートだけをPDF化して保存したい。
２、PDFの名前を、指定のセルのデータをつなげて名づけをしたい。

――――以下――――
Sub ワークシートごとにPDFに変換_未UP()

Const 日付セル = "AB1", 販売先名セル = "E6", 物件名セル = "E8", 備考セル = "E18", パス名 = "\ick-1841\開発営業部\★工事取引管理\T3\未UP\"
Dim 日付, 販売先名, 物件名, 備考, ファイル名
Dim i
Dim ws As Worksheet

For Each ws In Workbooks
If ws.Name Like "CS*" Then

' Set ws = Sheets(i)
日付 = Format(ws.Range(日付セル).Value, "YYMMDD")
販売先名 = ws.Range(販売先名セル).Value
物件名 = ws.Range(物件名セル).Value
備考 = ws.Range(備考セル).Value
ファイル名 = パス名 & 日付 & "" & 備考 & "" & 販売先名 & "_" & 物件名
Debug.Print 日付, 販売先名, 物件名, 備考, ファイル名
ws.ExportAsFixedFormat xlTypePDF, ファイル名, xlQualityStandard, True, False, , , False

    End If
Next

MsgBox "作業が終了致しました。"

End Sub

ーーーーーー
For eachの後からが、恐らく違うのかと思っております。

Answer 1

For Each ws In Workbooks

これではwsはWorkbook型になります。

For Each ws In Worksheets

にしてみたらどうなりますか？

Comments

[yu_tommy]

教えて頂きましたやり方で解決いたしました！誠にありがとうございました！