Excel VBA質問箱 IV

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

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


63932 / 76738 ←次へ | 前へ→

【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というファイルからそれぞれ各数値を貼り付けたいということでしょうか?

 そうです。それぞれの月別集計表に貼り付けます。
 毎月集計は取っているのでその月のみでいいです。
 つまり、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

0 hits

【17384】ファイル名が一定ではないブックからの貼り付け 名雪 04/8/28(土) 0:06 質問
【17385】Re:ファイル名が一定ではないブックからの... かみちゃん 04/8/28(土) 0:15 発言
【17386】Re:ファイル名が一定ではないブックからの... 名雪 04/8/28(土) 0:39 発言
【17388】Re:ファイル名が一定ではないブックからの... Hirofumi 04/8/28(土) 8:31 回答
【17391】Re:ファイル名が一定ではないブックからの... かみちゃん 04/8/28(土) 9:34 発言
【17394】Re:ファイル名が一定ではないブックからの... 名雪 04/8/28(土) 11:25 回答
【17398】Re:ファイル名が一定ではないブックからの... かみちゃん 04/8/28(土) 12:44 発言

63932 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free