指定したフォルダに格納へ格納

Question

Excel2016使用しております。

ExcelをタブごとにPDFとして名前をつけて保存するのですが、
指定したフォルダに格納されるようにしたいです。

フォルダのパスは、
\ick-1841\★工事取引管理\★工事管理表\ST
となります。

Sub ワークシートごとにPDFに変換()

Const 日付セル = "AB1", 販売先名セル = "E6", 物件名セル = "E8", 備考セル = "E18"
Dim 日付, 販売先名, 物件名, 備考, ファイル名
Dim i
Dim ws As Worksheet
For i = 3 To Sheets.Count
    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, , , True
Next i

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

End Sub

Comments

[y_waiwai]

提示のコードではどうなるんでしょうか

Answer 1

これでいけるのでは？

Const パス名 = "\ick-1841\★工事取引管理\★工事管理表\ST\"

ファイル名 = パス名 & 日付 & "_" & 備考 & "_" & 販売先名 & "_" & 物件名

Comments

[yu_tommy]

出来ました！ありがとうございます！