Excel VBA質問箱 IV

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

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


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

123 / 13658 ﾂﾘｰ

←次へ　｜　前へ→

▼

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

【81939】Re:別ブックからのシートのコピーがうまく... マナ 22/1/28(金) 19:57

【81952】Re:別ブックからのシートのコピーがうまく... モモ 22/1/31(月) 17:54

【81953】Re:別ブックからのシートのコピーがうまく... マナ 22/1/31(月) 19:22

【81954】Re:別ブックからのシートのコピーがうまく... チンコ 22/2/1(火) 19:15


	【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エラーが発生します。
解決策がわからず、どうかご助言をお願い致します。


	【81939】Re:別ブックからのシートのコピーがうま...

マナ - 22/1/28(金) 19:57 -


	引用なし

	パスワード

▼モモさん：

コードに問題ないと思いますはが
手作業では、シートコピー可能なのでしょうか。


	【81952】Re:別ブックからのシートのコピーがうま...

モモ - 22/1/31(月) 17:54 -


	引用なし

	パスワード

▼マナさん：
>▼モモさん：
>
>コードに問題ないと思いますはが
>手作業では、シートコピー可能なのでしょうか。

手作業ではコピー可能でした。
共有フォルダを使用していたため、そのせいかもと思い
デスクトップに移動して使用してもダメでした・・・


	【81953】Re:別ブックからのシートのコピーがうま...

マナ - 22/1/31(月) 19:22 -


	引用なし

	パスワード

▼モモさん：

こちらで試した限りでは再現できません。
コードに問題はないということです。
まずはマクロブックまたはコピー元のブック
どちらに問題があるか確認してはどうでしょうか。


	【81954】Re:別ブックからのシートのコピーがうま...

チンコ - 22/2/1(火) 19:15 -


	引用なし

	パスワード

よく解ってませんが、コピーするシートのデータ量が多いとか？
保護の状態は？
違っていたらすみません。


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

123 / 13658 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free