VBAで教えていただきたいのですが、

Visual Basic | プログラミング66閲覧xmlns="http://www.w3.org/2000/svg">100

ベストアンサー

0

その他の回答(1件)

0

おそらく「保存時にエラー判定して、エラーなら01,02を付けて再試行」というのも可能ですが、 エラーを出さずに処理したほうが良いと思うので、 ①まず保存するタイミングより前に(どこでもいいです)「フォルダ内の"累積data"の文字列があるファイル名をすべて取得するコード」を入れてください。 ※これについてはあまり長いコードでもないですが、「フォルダ内 ファイル名 取得 vba」などで検索すればサンプルコードがいくつも出ます。 セルに取得ではなく変数または配列に取得したほうがスマートだと思います。 ②保存名は hozonName = ActiveSheet.Nameとか適当なstring変数に代入しときましょう。(シート名は被ってても連番付けないんですよね?) ③ ①で取得したファイル名の、累積dataの後~.xlsxの前までの文字列とhozonNameを比較し、同じ文字列があればhozonNameに01を付けて比較、それでも同じファイル名があれば02を付けて比較 をループで99くらい繰り返す。 99まで全部埋まってたら「1日に作業しすぎです」と表示してexit subでいいでしょう…。 ④コードの保存部分を"累積data" & hozonName & ".xlsx"にして保存する こんな感じでどうでしょう。