別ブックに範囲内の数値をコピーしたい

Question

マクロを記録しているブック（book1）のsheet(1)に、
別ブック（book2）のsheet(2)の指定範囲の数値をコピーしたいです。
直前の操作では、book2のsheet(1)がアクティブになっています。（別の操作で使用）
.value=.valueではエラーになってしまいます。（パターン1）
cellsはアクティブシートに対する操作とどこかで見たため、
ブック、シートから記述してもうまくいきません。（パターン2）
アクティブシートを切り替えするとうまくいきました。（パターン3）
rangeの中にcellsを使用しているのは、選択範囲を変更する変数を入れたいためです。
シート切り替えで処理速度を落としているように感じられるため、
可能ならパターン1、2のような.valueでつなぐ形式にしたいと考えており、
ご教示頂けましたら幸いです。

dim book1 as workbook
dim book2 as workbook
dim sh11 as worksheet
dim sh21 as worksheet
dim sh22 as worksheet

set book1=thisworkbook
application.sheetsinnewworkbook=2
set book2=workbooks.add
set sh11=book1.sheet(1)
set sh21=book2.sheet(1)
set sh22=book2.sheet(2)

'パターン1、エラー
book1.sh11.range(cells(1,2),cells(100,9)).value _
=book2.sh22.range(cells(1,2),cells(100,9)).value

'パターン2、エラー
book1.sh11.range(book1.sh11.cells(1,2),book1.sh11.cells(100,9)).value _
=book2.sh22.range(book2.sh22.cells(1,2),book2.sh22.cells(100,9)).value

'パターン3、実行可能
book2.sh22.activate
book2.sh22.range(cells(1,2),cells(100,9)).copy
book1.sh11.activate
book1.sh11.range(cells(1,2),cells(100,9)).pastespecial(xlpastevalues)
application.cutcopymode=false

Answer 1

パターン１～３すべて私のところでは実行できませんでしたが…
とりあえずbook1.sh11とかってのがおかしいと思います。
book1はworkbookですが、そのプロパティやメソッドにsh11なんてものはありません。

一応以下は動作しましたので参考になれば。

Public Sub test()
    
    Dim book1 As Workbook
    Dim book2 As Workbook
    Dim sh11 As Worksheet
    Dim sh21 As Worksheet
    Dim sh22 As Worksheet
    
    Set book1 = ThisWorkbook
    Application.SheetsInNewWorkbook = 2
    Set book2 = Workbooks.Add
    Set sh11 = book1.Sheets(1)
    Set sh21 = book2.Sheets(1)
    Set sh22 = book2.Sheets(2)
    
    sh11.Range(sh11.Cells(1, 2), sh11.Cells(100, 9)).Value _
    = sh22.Range(sh22.Cells(1, 2), sh22.Cells(100, 9)).Value
End Sub

まぁこれだと。新しいbookつくって、そこから内容をセットしてるので
現在のシートの内容が消えるだけですが。

Comments

[shlly]

ご回答頂きましてありがとうございます。
実際のマクロでは、sh22にquerytables.addでデータを読み込み、それをsh11にコピー、
更にsh11他book1全体で計算させたデータをsh21にコピーするものですが、
ご教示頂いた通りに記述すると狙い通りの出力が得られました。