Excel VBA質問箱 IV

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

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


35743 / 76732 ←次へ | 前へ→

【46184】Re:別シートの末尾にコピーを作成するには
発言  かみちゃん  - 07/1/25(木) 21:28 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>ひとつめのブックにできているシートを選択して、別のすでに開いているブック
>(Cbook)の末尾にコピーしたいのですが、うまくいきません。

うまくいかないとだけでは状況がわかりません。
エラーが出るのでしょうか?
エラーが出るなら、どのようなメッセージでどのコードで出るのでしょうか?

アクティブブックの特定のシートを別の開いているブックの末尾にコピーするには
以下のような感じにします。

 Dim wb As Workbook
 
 '開いているブック名を取得
 For Each wb In Workbooks
  MsgBox wb.Name
 Next
 
 '指定したシートを「特定のブック」の末尾にコピーする
 With Workbooks(Cbook)
  'Sheets(Shopsheet).Copy after:=Workbooks(Cbook).Sheets(Sheets.Count)
  Sheets(Shopsheet).Copy after:=.Sheets(.Sheets.Count)
 End With

.Sheets(Sheets.Count)
では、アクティブブックのシート数の後にコピーしようとしています。
2 hits

【46182】別シートの末尾にコピーを作成するには にょろろ 07/1/25(木) 21:00 質問
【46184】Re:別シートの末尾にコピーを作成するには かみちゃん 07/1/25(木) 21:28 発言

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