ExcelVBA一つ上までのフォルダ作成

質問

ExcelVBA2007以上で質問です。

現在のファイルのあるフォルダは例えば「11月分」という名前になっています。
もうひとつ上は「2014年」というフォルダになっています。

コードを実行すると、翌月のフォルダとファイルを作成するようになっています。
現在11月なので、実行すると「12月分」というフォルダを作成して、「AAA2014-12」というファイルを作成します。さらにこれを実行して、例えば

"D:\YM\Desktop\AAA\2015年\1月分"\AAA2015-1.xlsm

のように2015年のフォルダを作成してさらにその中に1月分のフォルダを作成したいのですが、2014年フォルダの中に1月分フォルダが作成されるだけで、どうすればいいのか分かりません。

今の所、月のフォルダと、ファイル名は翌月取得が下記のコードで実現できています。
最後のコードに手を加える必要があると思いますが、どうすればよいでしょうか？

Sub AAA翌月ファイル作成()

Dim myDir_path As String, myNew_path As String

'現在ファイルがあるフォルダパスを取得
myDir_path = Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, "\") - 1)

'翌月分のファイル名を取得
myNew_path = "在庫数" & Format(DateAdd("m", 1, Replace(Replace(ThisWorkbook.Name, "AAA", ""), ".xlsm", "")), "yyyy-m") & ".xlsm"

'翌月のファイルを保存するフォルダ名を取得　　　あとは、年が変わったら1年繰り上げたものを取得したい
myDir_path = Left(myDir_path, InStrRev(myDir_path, "\")) & Format(DateAdd("m", 1, Replace(Replace(ThisWorkbook.Name, "AAA", ""), ".xlsm", "")), "m") & "月分\"

回答No.1

keithin · ベストアンサー

「AAA」とか「在庫数」とか、かなり随分デタラメですね。
落ち着いてアタマを整理して、応用してください。

dim myPath as string
dim s as string
dim myFile as string
dim myPath_Y as string
dim myPath_M as string

mypath = "D:\YM\Desktop\AAA\"
s = "AAA"
myfile = thisworkbook.name
myfile = left(myfile, len(myfile) - 5)
myfile = mid(myfile, len(s) + 1)　’2014-11を取得

mypath_y = year(dateadd("M", 1, myfile)) & "年\"
mypath_m = month(dateadd("M", 1, myfile)) & "月分\"

on error resume next
mkdir mypath & mypath_y
mkdir mypath & mypath_y & mypath_m
on error goto 0

thisworkbook.saveas filename:=mypath & mypath_y & mypath_m & s & format(dateadd("M", 1, myfile), "yyyy-m") & ".xlsm"

お礼

すいません、投稿の際「AAA」と「在庫数」を間違ってしまいました。
動作しました。
いつもお手数をおかけします。応用できるように励みたいんですが、進歩が遅く、少し変わるとつまづいて長い間とまってしまいます。
また、今後もお手数をおかけしますが、よろしくお願いいたします。
どうもありがとうございました。