Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6750 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【43437】開いてないシートのデータを別のシートにコピー ピーチ 06/10/15(日) 19:19 質問[未読]
【43438】Re:開いてないシートのデータを別のシート... かみちゃん 06/10/15(日) 19:43 発言[未読]
【43439】Re:開いてないシートのデータを別のシート... Hiroko 06/10/15(日) 19:44 回答[未読]
【43440】Re:開いてないシートのデータを別のシー... ponpon 06/10/15(日) 19:47 発言[未読]
【43441】Re:開いてないシートのデータを別のシート... ピーチ 06/10/15(日) 20:33 お礼[未読]
【43437】開いてないシートのデータを別のシートに...
質問  ピーチ  - 06/10/15(日) 19:19 -
引用なし
パスワード
   エクセルシートに
　Ａ　　　Ｂ　　Ｃ　　Ｄ　　Ｅ
１ああ　いい　うう　ええ　おお
２　：　　：　　：　　：　　：
３
４
５

というデータがあります。
このデータをシートを開かずに別のシートにコピーする
方法がわかりません。
【43438】Re:開いてないシートのデータを別のシー...
発言  かみちゃん  - 06/10/15(日) 19:43 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>このデータをシートを開かずに別のシートにコピーする

シートを開かずというのは、ブックは開いていて、シートをアクティブにせずに
という前提のことであれば、以下のような感じになります。

Sub test()
　With Range("A1:E2")
　　Sheets("Sheet2").Range("A1").Resize(UBound(.Value, 1), UBound(.Value, 2)).Value = .Value
　End With
End Sub

なお、ブックを閉じている状態でコピーしたい要件がわかりません。
【43439】Re:開いてないシートのデータを別のシー...
回答  Hiroko  - 06/10/15(日) 19:44 -
引用なし
パスワード
   ▼ピーチ さん：
こんばんは

シート２に下のシート１（シート１と仮に決めました）を
貼り付けるコードです。

>エクセルシートに
>　Ａ　　　Ｂ　　Ｃ　　Ｄ　　Ｅ
>１ああ　いい　うう　ええ　おお
>２　：　　：　　：　　：　　：
>３
>４
>５
>
>というデータがあります。

Sub Copy_PasteSpecial()
　 With Sheets("Sheet2")
　　　 .Activate
　　Sheets("Sheet1").Range("A1:E5").Copy
　　　With .Range("A1")
　　　　 .PasteSpecial 1
　　　　 .Select
　　　End With
　 End With
　 Application.CutCopyMode = False
End Sub

>このデータをシートを開かずに別のシートにコピーする
>方法がわかりません。
【43440】Re:開いてないシートのデータを別のシー...
発言  ponpon  - 06/10/15(日) 19:47 -
引用なし
パスワード
   ▼ピーチ さん：
>エクセルシートに
>　Ａ　　　Ｂ　　Ｃ　　Ｄ　　Ｅ
>１ああ　いい　うう　ええ　おお
>２　：　　：　　：　　：　　：
>３
>４
>５
>
>というデータがあります。

何というブックの何というシートのデータでしょうか？
データ範囲は？出来れば保存先も。

>このデータをシートを開かずに別のシートにコピーする

何というブックの何というシートのどこに？

開かずに、リンク貼り付けして、値に直す方法もありますが。
開いて貼り付け、閉じてしまう。その間画面描画を止めるという方法の方が、
速いと思いますが・・

このあたりをちゃんと書いて質問すると回答しやすいと思います。
【43441】Re:開いてないシートのデータを別のシー...
お礼  ピーチ  - 06/10/15(日) 20:33 -
引用なし
パスワード
   ありがとうございました。
動きました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6750 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free