|
月別実績表というのだから、・・・、6月、7月、8月、・・・となっていて、6月は、2004.06.25A.xls、7月は、2004.07.25A.xls、8月は、2004.08.25A.xlsというファイルからそれぞれ各数値を貼り付けたいということでしょうか?
そうです。それぞれの月別集計表に貼り付けます。
毎月集計は取っているのでその月のみでいいです。
つまり、DATAフォルダにはもう2004.06.25A.XLSは存在しない訳です。
>その場合、いつ貼り付けるのですか?(8月中?9月以降に8月にさかのぼって貼り付けることはあるのか?)
ほぼ毎日貼り付けていますが、場合によっては1週間程度
一度に貼り付けたりしています。
従って、月末前後には次月になってしまう場合もあります。
(8/31の分を9月5日に貼り付けたり)
一応の現在の設定の一部は以下の通りです。
TドライブのDATAフォルダ内にある、2004.8.26Aのデータを
macroと言うブックに貼り付ける。
Workbooks.Open Filename:="T:\DATA\2004.8.26A.XLS"
ActiveWindow.SmallScroll ToRight:=1
ActiveWindow.SmallScroll Down:=-9
Range("BB11:BD12").Select
Selection.Copy
Windows("macro.xls").Activate
Range("AA22:AA23").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("2004.8.26A.XLS").Activate
Range("BC14").Select
Application.CutCopyMode = False
Selection.Copy
Windows("macro.xls").Activate
Range("AA24").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("2004.8.26A.XLS").Activate
Range("BB15:BD17").Select
Application.CutCopyMode = False
Selection.Copy
Windows("macro.xls").Activate
Range("AA25:AA27").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("2004.8.26A.XLS").Activate
ActiveWindow.Close
|
|