Excel VBA 質問スレッド No.743 (解決済)

ブックaのシートをブックbのシートにコピーする

投稿者 : としちゃん投稿日時 : 2022/05/23(Mon) 23:34:05 OS : 未指定 EXCEL : 未指定

ブックaを開き、1つのシートをまるごと、
マクロを動かすブックbの指定されたシートにコピーしたいのですが教えてください。

多分、デバックしながらやるときと、マクロだけで実行するときは、アクティブが変わるのか、実行するたびエラーが変わって、よくわからなくなってます。

[返信 1] Re : ブックaのシートをブックbのシートにコピーする

投稿者 : hatena 投稿日時 : 2022/05/24(Tue) 11:28:28

> 多分、デバックしながらやるときと、マクロだけで実行するときは、アクティブが変わるのか、実行するたびエラーが変わって、よくわからなくなってます。

コードを書くとき、ブックオブジェクトを省略せずに指定しましょう。
そうすれば、アクティブが変わっても影響ありません。

Sub Sample()
    Dim wb  As Workbook '// 開いたブックのWorkbookオブジェクト
    
    '// ブックを開く
    Set wb = Workbooks.Open("C:\Test\a.xlsx")
    
    '// 開いたブックの１番目のシートのデータをマクロのあるブックの1番目のシートにコピー
    wb.Worksheets(1).UsedRange.Copy Destination:=ThisWorkbook.Worksheets(1).Cells(1, 1)
    
   
    '// ブックを閉じる
    Call wb.Close
End Sub

[返信 2] Re : ブックaのシートをブックbのシートにコピーする

投稿者 : としちゃん投稿日時 : 2022/05/24(Tue) 11:49:18

ありがとうございます。

２つのブックをwindowで切り替えたりしながら、コピー、移動、ペーストなどとやっていました。
すっきり解決です。

当掲示板について

Excel VBA に関する掲示板です。Excel VBA に関する質問や疑問、それに対する解決方法など気軽に投稿してください。
新規の質問を投稿する場合はこちら ⇒
記事内ではHTMLのタグは使用できません。
記事は一度投稿すると修正できません。内容を訂正したい場合は返信で対応してください。
Sub〜End Sub、Function〜End Function は自動的にプログラムコードとみなし、枠で囲って見やすくします。
Excel VBA とは関係ないことや、他人が不快に思うようなことなど、管理人が適当でないと判断した記事は削除する場合があります。

返信入力フォーム

( 処理日時 : 2022-07-07 12:34:28 )

▲
Page
Top