Excel VBA質問箱 IV

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

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


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

7117 / 76732

←次へ　｜　前へ→


	【75206】別ファイルへの貼り付けができない。

miki88 - 14/1/7(火) 21:33 -


	引用なし

	パスワード

win7でEXCEL2010です。
フォーマットファイル(ＡＡＡ.xls)のセルをコピーし、別ファイル(ＢＢＢ.xls)へ貼り付けるマクロを作成していました。
しかし、フォーマットファイルが別にあるのは・・・という話があがりました。
マクロが組み込まれているファイルにフォーマットファイルのシートを全く同じシート(sheet2)を作成し、そこからＢＢＢ.xlsへ貼り付けをしようとしたのですが、エラーになってしまいます。
(実行時エラー '1004': Range クラスの Copy メソッドが失敗しました。)

1.ができて2.ができない原因が分かりません。
お心当たりの方はいらっしゃらないでしょうか。
よろしくお願いします。

マクロ↓
Private Sub　test()
　Dim xlApp As Excel.Application
　Dim xlBook As Excel.Workbook
　Dim xlYBook As Excel.Workbook
　Set xlApp = New Excel.Application
　Set xlBook = xlApp.Workbooks.Open(ＢＢＢ.xlsのパス)
　Set xlYBook = xlApp.Workbooks.Open(ＡＡＡ.xlsのパス)

　'↓1.貼り付けできている。
　xlYBook.Worksheets(1).Range("B20:BL21").Copy xlBook.Worksheets(1).Range("B23")
　'↓2.貼り付けできずエラー
　Sheets(2).Range("B20:BL21").Copy xlBook.Worksheets(1).Range("B25")

　xlBook.Save
　xlBook.Close
　　
　xlYBook.Close
　Set xlBook = Nothing
　Set xlYBook = Nothing
　xlApp.Quit
　Set xlApp = Nothing
　　
End Sub

マクロ↑

822 hits

▼

【75206】別ファイルへの貼り付けができない。 miki88 14/1/7(火) 21:33

≪