エクセルのマクロでファイル保存時に上書きさせないようにしたい

Question

エクセルのマクロでファイル保存時に上書きさせないようにしたい

記述方法など全く分かっておりません。ネットで調べて
エクセルで該当シートをボタン一つでＰＤＦ化するにあたってファイル名を自動で付ける所までは
なんとか組めたのですが、これでは同一名のファイルに上書きしてしまいます。

例えば、以下ソース内で”ＤＫ４”は４桁の連番数字が格納されています。
０００１→０００２と順にエクセル内で振られますが、保存時にファイル名が既にある場合はマクロで
次の連番にすることは可能でしょうか。

該当のソースコード

Sub PDFで出力()
Dim myPath As String
myPath = "\Mame-saba1\共有ドキュメント\販売管理\納品・請求書\"
Sheets("納品書").PrintOut , ActivePrinter:="Microsoft Print to PDF", _
                        prtofilename:=myPath & Range("DK5") & "\" & Range("DK6") & "\MAQ-NB" & Range("DK4") & ".pdf"
End Sub

Answer 1

試してないけどこんな感じでいけないかな。

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

Comments

[kensproject]

このまま埋め込んで動作いたしました。
とても助かりました！ありがとうございます。

ちなみにですが。。
ソース内のＤＫ５とＤＫ６はパスです。このパスも変動します。
「保存時に指定パスの該当フォルダが無い場合に自動で指定パスのフォルダを作成する」
というのは可能なのでしょうか。

[退会済みユーザー]

上記、別の質問とした方が、回答を得られやすいと思いますよ。

[kensproject]

>m-ogura様　ありがとうございます！！
その様に致します！！

[kensproject]

コメント内に質問した内容を別の質問として立ち上げました。
　https://teratail.com/questions/324759