エクセルの指定範囲を抽出して新規bookを作る

Question

\AA\BB\エクセルA
のA3からA20(列)と3Cから3AA(行)
までを引き抜き
\AA\CC\エクセルB
のD2(列)とB2(行→列に変換)
に貼り付けたいです。

Workbooks("\AA\BB\エクセルA")worksheets("sheet1").Range("A3:A20").Copy _
Workbooks("\AA\CC\エクセルB")worksheets("sheet1").Range("D2")

としたのですが、エラーになりました。
ご教授のほどよろしくお願いいたします。

Answer 1

エラーとなった場合はどんなエラーが発生しているのかまで記載していただきたいです。
これがないがために見当違いな回答がついてしまうことがありますので。

原因？

パッと見て原因となりそうなところが２つあります。

1つ目は、Workbooks("\AA\BB\エクセルA")worksheets("sheet1")～の部分ですが、ブックの指定の後、Worksheetsとの間に.が抜けていると思います。
これは投稿する際の転記ミスかもしれないとも思いましたが、worksheetsが予約語として名称解決されていない小文字表記でしたので、実際のコードがこの通りであれば.が必要です。

２つ目はWorkbooks("\AA\BB\エクセルA")というブックの指定方法です。

Workbooksは既に開いているブックから特定ブックを取得するためのものです。
開いていないブックであれば、あらかじめ開いておく必要があります。
そして既に開いているブックであれば、ファイル名を指定することで取得できます。この際、フォルダパスまで記述する必要はなかったと思います。
これが原因であれば、Workbooks("エクセルA.xls")のように記述すれば取得できるかもしれません。

問題点を絞り込むために

今回のコピー文ですが、記載いただいた通り１文で処理できますが、細かく分けると以下のような処理が組み合わさっています。

    Dim wbCopy As Workbook
    Dim wsCopy As Worksheet
    Dim rCopy As Range

    Dim wbPaste As Workbook
    Dim wsPaste As Worksheet
    Dim rPaste As Range
    
    Set wbCopy = Workbooks("\AA\BB\エクセルA")
    Set wsCopy = wbCopy.Worksheets("sheet1")
    Set rCopy = wsCopy.Range("A3:A20")
    
    Set wbPaste = Workbooks("\AA\CC\エクセルB")
    Set wsPaste = wbPaste.Worksheets("sheet1")
    Set rPaste = wsPaste.Range("D2")
    
    rCopy.Copy rPaste

このように分解するとどこでエラーが発生しているのか切り分けがしやすくなりますので、問題が起きた時には処理を細かく分解してデバッグしてみるというのもひとつの手です。

参考になれば幸いです。