Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


60544 / 76736 ←次へ | 前へ→

【20830】フォルダー(該当月21日〜翌月20日サイクル)のファイル作成について
質問  YN61  - 04/12/21(火) 19:12 -

引用なし
パスワード
   該当月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

0 hits

【20830】フォルダー(該当月21日〜翌月20日サイクル)のファイル作成について YN61 04/12/21(火) 19:12 質問
【20832】Re:フォルダー(該当月21日〜翌月20日サイ... Asaki 04/12/21(火) 20:32 回答
【20833】Re:フォルダー(該当月21日〜翌月20日サイ... Hirofumi 04/12/21(火) 20:37 回答
【20836】Re:フォルダー(該当月21日〜翌月20日サイ... Asaki 04/12/21(火) 21:25 回答
【20837】Re:フォルダー(該当月21日〜翌月20日サイ... Asaki 04/12/21(火) 21:49 発言
【20838】Re:フォルダー(該当月21日〜翌月20日サイ... YN61 04/12/21(火) 22:39 質問
【20840】Re:フォルダー(該当月21日〜翌月20日サイ... YN61 04/12/21(火) 23:41 質問
【20841】Re:フォルダー(該当月21日〜翌月20日サイ... かみちゃん 04/12/22(水) 0:30 発言
【20842】Re:フォルダー(該当月21日〜翌月20日サイ... YN61 04/12/22(水) 7:16 質問
【20843】Re:フォルダー(該当月21日〜翌月20日サイ... Asaki 04/12/22(水) 9:20 回答
【20851】Re:フォルダー(該当月21日〜翌月20日サイ... YN61 04/12/22(水) 19:29 お礼
【20906】Re:フォルダー(該当月21日〜翌月20日サイ... Asaki 04/12/24(金) 9:45 回答
【20939】Re:フォルダー(該当月21日〜翌月20日サイ... YN61 04/12/26(日) 20:52 質問
【20943】Re:フォルダー(該当月21日〜翌月20日サイ... Asaki 04/12/27(月) 10:00 回答
【20951】Re:フォルダー(該当月21日〜翌月20日サイ... YN61 04/12/27(月) 20:00 お礼
【20953】Re:フォルダー(該当月21日〜翌月20日サイ... Asaki 04/12/28(火) 9:32 回答
【20959】Re:フォルダー(該当月21日〜翌月20日サイ... YN61 04/12/28(火) 21:02 お礼
【20969】Re:フォルダー(該当月21日〜翌月20日サイ... Asaki 04/12/29(水) 11:11 発言
【21135】Re:フォルダー(該当月21日〜翌月20日サイ... YN61 05/1/12(水) 18:31 質問
【21144】Re:フォルダー(該当月21日〜翌月20日サイ... かみちゃん 05/1/13(木) 6:44 回答
【21178】Re:フォルダー(該当月21日〜翌月20日サイ... YN61 05/1/13(木) 20:48 お礼

60544 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free