|
今晩は。会計処理の一部ですが、ぜひ教えてください。
毎日、日計処理をしています。
保存の形態はフォルダ「日計表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日のブックのデータ(ファイル=ブック)に遡り、ブックがあればそのブックの指定範囲を「月次集計」にコピーすることが目的です。
よろしくお願いします。
|
|