|
こんにちは。かみちゃん です。
>毎日、日計処理をしています。
>保存の形態はフォルダ「日計表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
|
|