|
こんにちは。かみちゃん です。
>ひとつめのブックにできているシートを選択して、別のすでに開いているブック
>(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)
では、アクティブブックのシート数の後にコピーしようとしています。
|
|