Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

466 / 76735

←次へ　｜　前へ→


	【81936】別ブックからのシートのコピーがうまく出来ません

モモ - 22/1/28(金) 11:20 -


	引用なし

	パスワード

今コードを起動しているmlsmにwsobjシートをコピーしたいのですが
　　　　For i = 1 To wbobj.Worksheets.Count
　　　　　　Set WsObj = wbobj.Sheets(i)
　　　　　　WsObj.Copy after:=ThisWorkbook.Worksheets(1)
　　　　next
で1004エラーが出ます。
ThisWorkbook.Worksheets(1)　部分は色々試しましたが、うまくいきません。

　　　　For i = 1 To wbobj.Worksheets.Count
　　　　　　Set WsObj = wbobj.Sheets(i)
　　　　　　WsObj.Copy
　　　　next
ではループ毎に新しいブックが作成され、wsobjがコピーされていきます。
set copy は出来ているのいですが、貼り付け先を指定するとエラーが出ます。

試しに新しいワークブック(wbobj3)を開き、
　　　　　　WsObj.Copy after:=wbobj3.Sheets(1)
でも1004エラーが発生します。
解決策がわからず、どうかご助言をお願い致します。

8 hits

▼

【81936】別ブックからのシートのコピーがうまく出来ません モモ 22/1/28(金) 11:20