|
該当月21日〜翌月20日までを1ケ月サイクルで日計をフォルダー(例えば12月は・・・「明細表16−12月分」)に格納しています。
フォルダー作成は21日に自動で作成(Auto_Open)させています。
12月21日には、「明細表17−01月分」のフォルダーに「明細表01-21」のファイルに仕上げたいのですが、ファイルがフォルダーの中に入らず、エラーになります。
コードの問題点をご指摘のほどお願いします。
(今年の12月20日までは問題なくファイルの保存が出来ましたが、今日12月21日にはエラーになりました、ご教授の程お願いいたします)
If Format(Date, "d") > 20 Then
ActiveWorkbook.SaveAs Filename:= _
"U:\フォルダーA\明細表" & Format(Date, "yy") + 12 _
& "-" & Format(Date, "m") + 1 & "月分\明細表" _
& Format(Date, "mm" & "-" & "dd")
If Format(Date, "m") = 12 Then
ActiveWorkbook.SaveAs Filename:= _
"U:\フォルダーA\明細表" & Format(Date, "yy") + 13 _
& "-" & Format(Date, "m") - 11 & "月分\明細表" _
& Format(Date, "mm" & "-" & "dd")
End If
Else
ActiveWorkbook.SaveAs Filename:= _
"U:\フォルダーA\明細表" & Format(Date, "yy") + 12 _
& "-" & Format(Date, "m") & "月分\明細表" _
& Format(Date, "mm" & "-" & "dd")
End If
|
|