ThisWorkbookの使い方

質問

お世話になります。
ThisWorkbookとActiveWorkbookの使い方で悩んでいます。
ThisWorkbookのデータをActiveworkbookにコピーしようとしています。

Sub test()
Dim temp As String, lrow As Long
temp = "C:\申請.xlt"
Workbooks.Open temp

MsgBox ThisWorkbook.Name
MsgBox ActiveWorkbook.Name

ThisWorkbook.Sheets("Sheet3").Range(Cells(6, 3), Cells(lrow, 3)).Copy ActiveWorkbook.Sheets(1).Cells(6, 3)

End Sub

メッセージボックスで確認するとThisWorkbookとActiveWorkbookを正しく選択してくれているのですが、
実際にコピーをする作業のところでは、ThisWorkbookのデータを同じファイルに書き込んでしまいます。

Dim Sendbook As String
Workbooks.Open temp
Sendbook = ActiveWorkbook.Name

を追加して
ThisWorkbook.Sheets("Sheet3").Range(Cells(6, 3), Cells(lrow, 3)).Copy Workbooks(Sendbook).Sheets(1).Cells(6, 3)

とすると、アプリケーション定義またはオブジェクト定義のエラーです。となります。

どこが間違っているのか、教えてください。
よろしくお願いします。

回答No.1

ESE_SE · ベストアンサー

ActiveWorkbookというのは「現在アクティブになっているワークブック」のことですから
その時々によってアクティブなブックが選択されることになります。
そういう意味では相対的な指定ですね。
割り込みなんかが入ったり、開いたファイルがアクティブにならなかったりすると厄介ですね。

私ならこんな感じに。

ThisWorkbook.Sheets("Sheet3").Range(Cells(6, 3), Cells(lrow, 3)).Copy Workbooks(Dir(temp)).Sheets(1).Cells(6, 3)

Dir(パス文字列) でファイル名のみを取得し、Workbooksの引数にすることで
既に開いているファイルのWorkbooksオブジェクトを取得します。

お礼

ESE_SE さん

丁寧な回答、ありがとうございました。
こういう方法があったんですね。
しかも解説つきで、私でもよく理解することができました。

以前にもThisWorkbookで四苦八苦したのですが、
ActiveWorkbookの扱いも簡単そうで難しいです。

応用力のなさを痛感します。

ありがとうございました。