お返事が明日になります。 こちらの質問の追加です、協力いただきたいです。。

画像
補足

fname = .Range("B14") …B14にはR:共通4 個人テスト が入ってます  ChDrive .Range("B13") End With fname = fname & "依頼書" & Format(Now, "yyyymmdd") & ".xlsx" If Dir(fname) <> "" Then Do k = k + 1 If k > 5 Then wb.Close Exit Sub End If fname = fname & "依頼書" & Format(Now, "yyyymmdd") & Format(k, "_00") & ".xlsx" Loop While Dir(fname) <> "" End If End If wb.SaveAs filename:=fname & "依頼書" & Format(Now, "yyyymmdd") & ".xlsx"

Visual Basic | Excel36閲覧xmlns="http://www.w3.org/2000/svg">50

ベストアンサー

0

早速のご回答ありがとうございます! たしかに日時+時間のほうが簡単ですね… こちらのが良いかもしれないです 連番は1~9までで大丈夫です。 これからトライしてみます。

ThanksImg質問者からのお礼コメント

前回に続いてご協力いただきありがとうございます!! 希望の形でできました、とても助かりました。 ファイル名連番は次回より+保存時間分等で対応するようにします。

お礼日時:2020/12/1 10:25