Excel VBA質問箱 IV

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

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


31784 / 76732 ←次へ | 前へ→

【50192】フォルダー内の該当ブックを探し、指定範囲のデータをコピーする
質問  Mari  - 07/7/13(金) 19:45 -

引用なし
パスワード
   今晩は。会計処理の一部ですが、ぜひ教えてください。

毎日、日計処理をしています。
保存の形態はフォルダ「日計表07-05月分」に、ブック名は「残高表05-20」と
いうようなファイルを保存しています。

前月の21日から当月の20日をサイクルに月単位の集計をするとき

例えば5月の20日は日曜、19日は土曜でデータ(保存ファイル)は有りません
このような場合、ファイル(データ)の存在する18日のデータを取得したいので
すが・・・
日にちの宣言をDim i As Integerとして
For〜Nextを使って該当月の20日からファイルがあるところまで遡り
検索したいのですが、その方法を教えてください。
現在、以下のコードまで作成しています。 

Sub 集計 ( )
 
  Dim str1 As String, str2 As String
  Dim i As Integer
  Dim WB As Workbook
  
  Const PFol As String = "F:\" 

  dt1 = DateAdd("m", -2, Date) '2ヶ月前表示 
   
  For i = 20 To 15 Step -1  ’←20〜15日にファイル(データ)
   'があればそれを活用したいのです。
  If・・・ ←ここでファイルがあれば、のコードを入れたいのですが・・・

  str1 = PFol & "日計表" & Format(dt1, "yy-mm") & "月分\" & _
           "残高表" & Format(dt1, "mm-" & i) & ".xls"
  ’MsgBox str1
  
  Set WB = Workbooks.Open(Filename:=str1)
      WB.Worksheets(1).Range("E6:E220").Copy _
         Workbooks("月次集計.xls").Worksheets(3).Range("B6")
      WB.Close False
  Set WB = Nothing
  Next
  
End Sub 

 20日のブックが無いとき、19日のブック→更に18日のブックのデータ(ファイル=ブック)に遡り、ブックがあればそのブックの指定範囲を「月次集計」にコピーすることが目的です。

よろしくお願いします。 

1 hits

【50192】フォルダー内の該当ブックを探し、指定範囲のデータをコピーする Mari 07/7/13(金) 19:45 質問
【50197】Re:フォルダー内の該当ブックを探し、指定... かみちゃん 07/7/13(金) 19:56 発言
【50203】Re:フォルダー内の該当ブックを探し、指定... Mari 07/7/13(金) 21:57 質問
【50204】Re:フォルダー内の該当ブックを探し、指定... かみちゃん 07/7/13(金) 22:21 発言
【50208】Re:フォルダー内の該当ブックを探し、指定... Mari 07/7/13(金) 23:45 お礼

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