Excel VBA質問箱 IV

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

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


7348 / 13644 ツリー ←次へ | 前へ→

【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 -

引用なし
パスワード
   ありがとうございました。
できました!

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