|
いつも、お世話になっています。
簡単な質問かも知れませんが、何卒お知恵をお貸しください。
全国の支社から、定期的に送られてくる報告資料の数値を集約するマクロを
作成しようと努力しています。
1.というフォルダに毎回報告されてくるエクセルのブックを保存していきます。
集約する一覧表にマクロを作成しています。
1.に存在する数多くのブックを開き、特定箇所をコピーして
一覧表にペーストします。
この板を参考に
Dim MyF As String
Const Ph As String = "C:\Documents and Settings\tie\デスクトップ\1."
MyF = Dir(Ph & "\*.xls")
Application.ScreenUpdating = False
Do Until MyF = ""
Workbooks.Open Ph & "\" & MyF
<処理内容>コピー&ペースト
ActiveWorkbook.Close True
MyF = Dir()
Loop
Application.ScreenUpdating = True
というコードを書きました。
ここまでは、なんとかできましたが、
以下の作業を加えたいと思います。
コピー&ペーストを終えた段階で、報告されたブックの名前に
処理した日付を加えて、別の2.というフォルダに保存をする。
例)○○報告フォーム【A支店】というブックを
→○○報告フォーム【A支店】20051127
他力本願で申し訳ありませんが、アドバイスをお願い致します。
|
|