Excelマクロで年度別にフォルダ作成したい。
Excel2003です。
日々の売り上げ集計ファイルをボタン一つで保存していくマクロを作っています。
Application.DisplayAlerts = False
If Dir(ThisWorkbook.Path & "\" & Format(Date, "yy") & "年集計", vbDirectory) = "" Then
MkDir Path:=ThisWorkbook.Path & "\" & Format(Date, "yy") & "年集計"
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Format(Date, "yy") & "年集計\" & Format(Date, "yymmdd") & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Else
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Format(Date, "yy") & "年集計\" & Format(Date, "yymmdd") & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
とりあえず指定のフォルダに「yymmdd.xls」という名前をつけて保存、もしフォルダがなければ作るというところまで作れました。そこで、今度は「**年度」というフォルダに自動的に保存され、もし「**年度」というフォルダがなければ作るようにしたいのです。上に上げたマクロでは「**年」というフォルダを作ってその中に保存というところまでは出来ているのですが……。とにかく年度で分ける場合の処理がよくわかりません。
回答よろしくお願いします。
お礼
>何やってるのかちゃんと勉強してご自分の知識として「ぬすむ」のが,一番カタイ方法です。 非常に適切で、本質的なご回答ありがとうございました。 私はまだ、「うごく、ラッキー」程度のレベルですがいただいたアドバイスを大切にして学びたいと思いました。