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番目のシートのデータをマクロのあるブックの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
ありがとうございます。

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

当掲示板について
返信入力フォーム
お 名 前  :
内  容   :
ステータス  : この質問を解決済みにする

認証コード  :
        キャプチャ画像


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

Page
Top