Excel VBA質問箱 IV

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

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


60537 / 76732 ←次へ | 前へ→

【20833】Re:フォルダー(該当月21日〜翌月20日サイクル)のファイル作成について
回答  Hirofumi  - 04/12/21(火) 20:37 -

引用なし
パスワード
   >12月21日には、「明細表17−01月分」のフォルダーに「明細表01-21」
>のファイルに仕上げたいのですが、ファイルがフォルダーの中に入らず、
>エラーになります。
>コードの問題点をご指摘のほどお願いします。
>(今年の12月20日までは問題なくファイルの保存が出来ましたが、
>今日12月21日にはエラーになりました、ご教授の程お願いいたします)

このコードでは、12月21日には、「明細表01-21」では無く、「明細表12-21」のファイルが、
「明細表17−01月分」では無く、「明細表17-1月分」のフォルダに格納される様に成っていますが?

以下のコードを実行して見て下さい、
ActiveSheetに、2004年1月から翌年1月までの20日、21日のファイル名が出力されます

Public Sub Test()
  
  Dim i As Long
  Dim j As Long
  Dim strFileName As String
  Dim dtmDate As Date
  Dim lngRow As Long
  
  lngRow = 1
  For i = 1 To 13
    For j = 20 To 21
      dtmDate = DateSerial(2004, i, j)
      If Format(dtmDate, "d") > 20 Then
        strFileName = "U:\フォルダーA\明細表" _
                & Format(dtmDate, "yy") + 12 & "-" _
                & Format(dtmDate, "m") + 1 _
                & "月分\明細表" _
                & Format(dtmDate, "mm" & "-" & "dd")
        If Format(dtmDate, "m") = 12 Then
          strFileName = "U:\フォルダーA\明細表" _
                  & Format(dtmDate, "yy") + 13 & "-" _
                  & Format(dtmDate, "m") - 11 _
                  & "月分\明細表" _
                  & Format(dtmDate, "mm" & "-" & "dd")
        End If
      Else
        strFileName = "U:\フォルダーA\明細表" _
                & Format(dtmDate, "yy") + 12 & "-" _
                & Format(dtmDate, "m") _
                & "月分\明細表" _
                & Format(dtmDate, "mm" & "-" & "dd")
      End If
      With ActiveSheet
        .Cells(lngRow, "A").Value = dtmDate
        .Cells(lngRow, "B").Value = strFileName
      End With
      lngRow = lngRow + 1
    Next j
    lngRow = lngRow + 1
  Next i

End Sub
1 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 お礼

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