エクセル マクロで自動保存時に指定パスに無いフォルダを自動で作らせたい

Question

###　エクセル　マクロで自動保存時に指定パスに無いフォルダを自動で作らせたい

jinoji様にご教授して頂き、以下のソースが出来上がりました。
エクセル内容を読み取り、変動パスと変動する４桁のファイル番号からボタン一つで自動にＰＤＦファイルを作ります。
ここで変動パスに指定された内容で新しいフォルダが必要な場合に自動で必要フォルダを作成して自動保存できる様に
したいのですがご教授頂けないでしょうか。

※追記１　私はまるっきりの素人です。以下のソースを組み込んだ物（貼り付ければそのまま動作するソース）を
教えて頂けますでしょうか。

以下
ＤＫ５（西暦）とＤＫ６（月）は変動パス
ＤＭ４は４桁（０００１～）の変動ファイル番号

Sub PDF名前自動_納品書()

Dim i As Long
Dim fn As String
Dim myPath As String

myPath = "\Mame-saba1\共有ドキュメント\販売管理\納品・請求書\"

For i = Range("DM4") To 9999
    fn = myPath & Range("DK5") & "\" & Range("DK6") & "\MAQ-NB" & Range("DK4") & Format(i, "0000") & Range("DN4") & ".pdf"
    If Dir(fn) = "" Then
        Sheets("納品書").PrintOut , ActivePrinter:="Microsoft Print to PDF", _
                        prtofilename:=fn
        Exit For
    End If
Next

End Sub

Answer 1

MakeSureDirectoryPathExists を調べてみたらどうでしょうか。
とだけ書くつもりでしたが・・・

Option Explicit

#If Win64 Then
  Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As LongPtr
#Else
  Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long
#End If

Sub PDF名前自動_納品書()

Dim i As Long
Dim fn As String
Dim myPath As String

myPath = "\Mame-saba1\共有ドキュメント\販売管理\納品・請求書\"

For i = Range("DM4") To 9999
    fn = myPath & Range("DK5") & "\" & Range("DK6") & "\MAQ-NB" & Range("DK4") & Format(i, "0000") & Range("DN4") & ".pdf"
    If Dir(fn) = "" Then
        MakeSureDirectoryPathExists fn
        Sheets("納品書").PrintOut , ActivePrinter:="Microsoft Print to PDF", prtofilename:=fn
        Exit For
    End If
Next

End Sub

Comments

[kensproject]

そのまま貼り付けで上手く行きました。
正しい動作をするものが分かったのでこちらを元に勉強と改造ができました。
ありがとうございます。　とても助かりました。

Answer 2

こんな感じでしょうか。
保存先フォルダが存在しない場合はフォルダを作成してブックを保存する

Comments

[kensproject]

すみません。まるっきりの素人なので応用ができません。
私のソースを組み入れた物（そのままの貼付けで動作するソース）を教えて頂けないでしょうか。

[退会済みユーザー]

ソースを提示することは可能ですが、まずはリンク先に書かれている内容を理解していただきたいです。
内容を理解しないままコピペすると、バグが潜んでいた場合に対応できませんよ。

[jinoji]

最初は日本語で考えてみたらいいと思います。

もし myPath & Range("DK5") のフォルダがなかったら、
　 myPath & Range("DK5") のフォルダを作る
もし myPath & Range("DK5") & "\" & Range("DK6")のフォルダがなかったら、
　myPath & Range("DK5") & "\" & Range("DK6")のフォルダを作る

[kensproject]

お教え頂いた内容で勉強および応用編にて試行錯誤いたしました。
この部分に関しましては理解できました。
ありがとうございました！