質問: ファイル名の作成について 写真のように複写するマクロを作成しています。 その中で平成aa年度のaaに ファイル名の作成について 写真のように複写するマクロを作成しています。 その中で平成aa年度のaaに数字を代入し毎年更新の時に1を足していくように考えています。 aaに代入する方法を教えてください。 例 平成29年度 平成30年度 平成31年度 になるようにです。 よろしくお願いします。
回答: こんなふうにしてみたらどうでしょうか。 冗長なところがあるかもしれません。 '// sub savingfilename() dim mpath as string dim wsh as object dim filename as string dim fname as string dim basename as string dim nums as variant set wsh = createobject("wscript.shell") mpath = wsh.specialfolders("desktop") & "\" nums = "*" basename = "平成" & nums & "年度.xlsm" fname = dir(mpath & basename) if fname <> "" then nums = mid(fname, instr(1, fname, "平成") + 2, 2) do nums = nums + 1 filename = replace(basename, "*", cstr(nums)) loop until dir(mpath & filename) = "" else nums = format$(date, "ee") filename = replace(basename, "*", nums) '前ファイルがない場合 end if activeworkbook.saveas mpath & filename end sub