Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2849 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【65613】copy処理について 質問者 10/6/14(月) 14:11 質問[未読]
【65614】Re:copy処理について 超初心者 10/6/14(月) 14:40 発言[未読]
【65623】Re:copy処理について 質問者 10/6/15(火) 17:28 質問[未読]
【65629】Re:copy処理について 超初心者 10/6/16(水) 10:03 発言[未読]
【65630】Re:copy処理について 質問者 10/6/16(水) 10:17 発言[未読]
【65613】copy処理について
質問  質問者  - 10/6/14(月) 14:11 -
引用なし
パスワード
   コピー処理について教えて下さい。

元のデータを編集して新規にＥＸＣＥＬを開き
対象データを名前をつけて保存しています。

元のＥＸＣＥＬは　AA.XLS シート名 BB

貼り付け先のＥＸＣＥＬのシートのシート名を固定
でなく、貼り付けをしたいのですが

そのようなことができるかどうか教えて下さい。
出来る場合はその方法を教えて下さい

以上御願いします。

'●別シートにコピー（集計分）
　
　　　　Workbooks.Add
　　　　Windows("AA").Activate
　　　　Cells.Select
　　　　Selection.Copy
　　　　
　　　　Windows("AA.XLS").Activate
　　　　Sheets("BB").Select
　　　　Application.CutCopyMode = False
　　　　Selection.Copy
　　　　
　　　　
　　　　Windows("Book1").Activate　★ここを特に指定しなくてもいいように
　　　　　　　　　　　　　　　　　　 できないでしょうか？　　　
　　　　ActiveSheet.Paste
【65614】Re:copy処理について
発言  超初心者  - 10/6/14(月) 14:40 -
引用なし
パスワード
   ▼質問者 さん：

新規ブックへのコピーであれば、

Sheets("BB").Copy

でどうでしょう。
【65623】Re:copy処理について
質問  質問者  - 10/6/15(火) 17:28 -
引用なし
パスワード
   マクロを１度実行した場合は、
新しいファイルがＢＯＯＫ１なので問題なく処理できます。
Windows("Book1").Activate
　　　　ActiveSheet.Paste

処理が終わったので別の条件でもう１回処理したら
次はブックはＢＯＯＫ２となります。

Windows("Book1").Activate　　BOOK2となります。
　　　　ActiveSheet.Paste

処理が終わったので別の条件でまた処理したら

次はＢＯＯＫ３になります。

Windows("Book1").Activate　　BOOK3となります。
　　　　ActiveSheet.Paste

このＢＯＯＫに貼り付ける場合にＢＯＯＫ１とか
指定しないでうまく処理する方法がないか教えて
下さい。
【65629】Re:copy処理について
発言  超初心者  - 10/6/16(水) 10:03 -
引用なし
パスワード
   ▼質問者 さん：

新規ブックへのコピーではなかったのでしょうか＾＾；
私の回答は試していただけたのでしょうか？

端折りすぎましたかね＾＾；；

同じ回答になりますが、一応。

Sub sample()
　　Windows("AA.XLS").Activate
　　Sheets("BB").Copy
End Sub
【65630】Re:copy処理について
発言  質問者  - 10/6/16(水) 10:17 -
引用なし
パスワード
   変数を利用するようにしてみました。
そしたらうまく行きました。
お騒がせしました。

'●別シートにコピー（集計分）
　
　　　　Workbooks.Add
　　　　
　　　　Dim abc
　　　　abc = ActiveWorkbook.Name
　　　　　　　　
　　　　Windows("aa.XLS").Activate
　　　　Cells.Select
　　　　Selection.Copy
　　　　
　　　　''Windows("Book1").Activate
　　　　''ActiveSheet.Paste
　　　　''Range("A1").Select
　　　　''Sheets("Sheet1").Select
　　　　
　　　　Windows("aa.XLS").Activate
　　　　Sheets("bb").Select
　　　　Application.CutCopyMode = False
　　　　Selection.Copy
　　　　
　　　　'●使用ファイル
　　　　
　　　　Windows(abc).Activate
　　　　ActiveSheet.Paste
　　　　
　　　　Range("A4").Select
　　　　Application.CutCopyMode = False
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2849 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free