Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7349 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【39673】シートごと転記したいのですが・・・ 初心者なんですが。 06/6/28(水) 20:43 質問[未読]
【39676】Re:シートごと転記したいのですが・・・ ぱっせんじゃー 06/6/28(水) 20:59 発言[未読]
【39679】Re:シートごと転記したいのですが・・・ 初心者なんですが。 06/6/28(水) 21:39 発言[未読]
【39680】Re:シートごと転記したいのですが・・・ ぱっせんじゃー 06/6/28(水) 21:49 発言[未読]
【39682】Re:シートごと転記したいのですが・・・ 初心者なんですが。 06/6/28(水) 21:59 お礼[未読]
【39673】シートごと転記したいのですが・・・
質問  初心者なんですが。  - 06/6/28(水) 20:43 -
引用なし
パスワード
   bookA,sheet1をbookB,sheet1に
まるごと転記するにはどう書いたらよいのでしょうか？

workbooks("A").worksheets("sheet1")=workbooks("B").worksheets("sheet1")
ではだめなんでしょうか？
copyされるだけになってしまいます。
よろしくお願いします。
【39676】Re:シートごと転記したいのですが・・・
発言  ぱっせんじゃー  - 06/6/28(水) 20:59 -
引用なし
パスワード
   こんな感じでいけると思います。

Copy
を使います。

Workbooks("A.xls").Worksheets("Sheet1").Cells.Copy Workbooks("B.xls").Worksheets("Sheet1").Cells(1, 1)
【39679】Re:シートごと転記したいのですが・・・
発言  初心者なんですが。  - 06/6/28(水) 21:39 -
引用なし
パスワード
   ▼ぱっせんじゃー さん：
sub 転記()
Workbooks("A.xls").Worksheets("Sheet1").Cells.Copy Workbooks("B.xls").Worksheets("Sheet1").Cells(1, 1)
End sub

インデックスが有効範囲にありません。。。と出ます。
指定するものがないように思うのですが・・

お手数かけます。すみません。
【39680】Re:シートごと転記したいのですが・・・
発言  ぱっせんじゃー  - 06/6/28(水) 21:49 -
引用なし
パスワード
   A.xls
B.xls
両方のブックを開いた状態で実行してください。
開くのが面倒でしたら、ブックを開くコードも
追加する必要があります。
【39682】Re:シートごと転記したいのですが・・・
お礼  初心者なんですが。  - 06/6/28(水) 21:59 -
引用なし
パスワード
   ありがとうございました。
できました！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7349 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free