Excel VBA質問箱 IV

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

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


31780 / 76732 ←次へ | 前へ→

【50197】Re:フォルダー内の該当ブックを探し、指定範囲のデータをコピーする
発言  かみちゃん E-MAIL  - 07/7/13(金) 19:56 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>毎日、日計処理をしています。
>保存の形態はフォルダ「日計表07-05月分」に、ブック名は「残高表05-20」と
>いうようなファイルを保存しています。
>
>前月の21日から当月の20日をサイクルに月単位の集計をするとき
>
>例えば5月の20日は日曜、19日は土曜でデータ(保存ファイル)は有りません
>このような場合、ファイル(データ)の存在する18日のデータを取得したいので
>すが・・・

私も同様のことを以下のような感じでしています。

Sub 集計2()

  Dim str1 As String, str2 As String
  Dim i As Integer
  Dim WB As Workbook
  Dim dt1 As Date
 
  Const PFol As String = "F:\"

  dt1 = DateAdd("m", -2, Date) '2ヶ月前表示
  
  '←20〜15日にファイル(データ)があればそれを活用したいのです。
  str1 = ""
  For i = 20 To 15 Step -1
   str1 = PFol & "日計表" & Format(dt1, "yy-mm") & "月分\" & _
        "残高表" & Format(dt1, "mm-" & i) & ".xls"
   'ファイルの存在確認
   If Dir(str1) <> "" Then Exit For
   str1 = ""
  Next

  If str1 <> "" Then
   MsgBox "次のファイルを開きます。" & vbCrLf & 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
  Else
   MsgBox "ファイルが見つかりませんでした"
  End If
End Sub
0 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 お礼

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