Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

64001 / 76807

←次へ　｜　前へ→


	【17394】Re:ファイル名が一定ではないブックからの貼り付け

名雪 - 04/8/28(土) 11:25 -


	引用なし

	パスワード

月別実績表というのだから、・・・、6月、7月、8月、・・・となっていて、6月は、2004.06.25A.xls、7月は、2004.07.25A.xls、8月は、2004.08.25A.xlsというファイルからそれぞれ各数値を貼り付けたいということでしょうか？

　そうです。それぞれの月別集計表に貼り付けます。
　毎月集計は取っているのでその月のみでいいです。
　つまり、ＤＡＴＡフォルダにはもう2004.06.25A.XLSは存在しない訳です。

>その場合、いつ貼り付けるのですか？（8月中？9月以降に8月にさかのぼって貼り付けることはあるのか？）

　ほぼ毎日貼り付けていますが、場合によっては１週間程度
　一度に貼り付けたりしています。
　従って、月末前後には次月になってしまう場合もあります。
　（8/31の分を９月５日に貼り付けたり）

一応の現在の設定の一部は以下の通りです。

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

0 hits

▼

【17384】ファイル名が一定ではないブックからの貼り付け 名雪 04/8/28(土) 0:06