ピボットテーブル作成時のエラー解消方法をお尋ねします

Question

前提・実現したいこと

毎回、初歩的な質問で恐れ入ります。
構文エラーを解消したいです。
ピボットテーブルキャッシュ設定時に以下のエラーメッセージが発生しました。
RangeとCellsの使い方がまだわかってないのでしょうか。
エラーの解消方法を教えて頂ければ助かります。

発生している問題・エラーメッセージ

コンパイル エラー：
構文エラー

該当のソースコード

Sub test31_0125()

    Dim ws07, ws08 As Worksheet
    
    Set ws07 = worksheets("月次")
    Set ws08 = worksheets("月次コスト")
       
    'ピボットデータの元データを選択
    Dim i As Long, j As Long
    
    '元データの最終行を取得
    i = ws08.Cells(Rows.Count, 1).End(xlUp).Row

    '元データの最終列を取得
    j = ws08.Cells(1, Columns.Count).End(xlToLeft).Column
    
    Debug.Print i
    Debug.Print j
    
    Dim pc As PivotCache
    Dim pt As PivotTable
    
    'ここの下でエラーがでます。
    Set pc = ActiveWorkbook.PivotCaches.Create( _
                                SourceType:=xlDatabase, _
                                SourceData:=worksheets(8).range(cells(1,1),cells(i,j))
                                
End Sub

試したこと

構文エラーを調べましたが、解決できませんでした。

補足情報（FW/ツールのバージョンなど）

Answer 1

worksheets(8)がws08のことであれば

'SourceData:=worksheets(8).range(cells(1,1),cells(i,j))
SourceData:=ws08.Name & "!" & ws08.Range(ws08.Cells(1,1),ws08.Cells(i,j)).Address

それと、蛇足ですが変数の宣言について
これはws07がVariantになっています。

'Dim ws07, ws08 As Worksheet
Dim ws07 As Worksheet, ws08 As Worksheet

※ws07は提示されたコードでは使われていませんが、
他部分で使われていると想定

Comments

[shu_shu]

コメントありがとうございます。返信遅くなりました。自分なりに調べたのですがわかりませんでした。教えて頂いたコードで試すと「型が一致しません」となります。自分としては「Address」メソッドは全く頭にありませんでした。再度お問合せになってしまいますが、ピボットテーブルに使うデータを指定する際、「Address」メソッドで指定できるということでしょうか？初歩的な質問で大変恐れ入ります。
またws07がVariantの件、失礼しました。修正します。

Answer 2

構文エラーは文字通り構文エラーです。

SourceData:=worksheets(8).range(cells(1,1),cells(i,j))

SourceDataは文字列データで指定する必要があります。
""で囲んでください。
上記の定義が正確ではないのでオブジェクト定義エラーが返ってきていました。

SourceData:=worksheets(8).range(worksheets(8).cells(1,1),worksheets(8).cells(i,j))

この形であれば構文エラーはなくなりますが、SourceDataの引数にエラーがでます。

dim test
test = worksheets(8).range(worksheets(8).cells(1,1),worksheets(8).cells(i,j)).address
~略~
SourceData:=test)

内部データが文字列であれば変数で指定できます。
他の回答者が.Addressでの指定方法を記載していますのでそちらを参照しました。

その他参照コード

Comments

[shu_shu]

コメントありがとうございます。返信遅くなりました。ご丁寧に教えて頂きましてありがとうございます。本当に初歩的で申し訳ありませんが、「SourceDataは文字列データで指定する必要があります。」が、理解にいたりません。ピボットテーブルに使用するデータは文字列である必要があるということでしょうか？もしご教示頂ければ幸いです。

[退会済みユーザー]

そこはうまく言えてませんでした。
Microsoft公式としてSourceDataに値を入れる時は
https://docs.microsoft.com/ja-jp/office/vba/api/excel.pivotcaches.create
>このメソッドは~略~文字列を使用するか、名前付き範囲を設定して名前を文字列として渡すことをお勧めします。 Rangeオブジェクトを渡すと、予期しないエラーが発生することがあります。
と記載があります。
ちなみに.Addressとつける事で変数に返るデータが"$A$1:$H$8"のような値になりますので正常に動作するようになります。

[shu_shu]

ご返信ありがとうございました。まだ本当に理解できていないと思いますが、これから沢山勉強しながら理解を深めていきたいと思います。また.Addressのことも今後の参考になると思います。お忙しい中、何度もありがとうございました。

Answer 3

ちょっと見ただけですが、

SourceData:=worksheets(8).range(cells(1,1),cells(i,j))
' を
SourceData:=worksheets(8).range(ws08.cells(1,1),ws08.cells(i,j))

なりにしてみてどうでしょうか。

Comments

[shu_shu]

コメントありがとうございます。返信遅くなりました。教えて頂いたコードでエラーが解消しました。恐らくこの後、ピボットテーブルが作成できそうです。ありがとうございました。