マクロでのピボットテーブルについて
EXCELにてピボットテーブルから抜粋できる表を作ろうと考えています。
sheet1!$A$1 にはピボットテーブルがあり、そこから値を拾い、
x～yの範囲に表を作るマクロです。
変数1～3にはユーザーが指定する項目が入ります。
さらにピボットテーブルの場所を変数としたいのですが、上手く値を拾えません。
(変数にすると#REF!となります)
Dim 場所 As String
場所 = "sheet1!$A$1"
Worksheets("sheet2").select
For x = h to i
For y = j to k
Cells(x, y) = Application.Evaluate("=getpivotdata(""個数"",場所,""フィールド1"",""" & 変数1 & """,""フィールド2"",""" & 変数2 & """,""フィールド3"",""" & 変数3 & """)")
Next
Next
Cells(x, y) = Application.Evaluate("=getpivotdata(""個数"",sheet1!$A$1,[略]
と、すると正しい値が拾えるのですが。
ピボットテーブルの場所を変数にしてもエラーにならないやり方をご教示いただけませんでしょうか。
