[問題] VBA 樞紐分析表

[unhumanWu (阿文)]

(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:excel

版本: 2013

大家好

小弟作了一個 userform

會根據使用者可以在 textbox (textSheet.text) 輸入的名稱來新建立工作表

並在該工作表製作樞紐分析表

分析表的資料來源是另一張工作表的範圍Prng

程式寫出來後在自己電腦上測試沒問題

但是把檔案傳給其他人後會在製作分析表這行出錯

顯示型態不合，錯誤13

不過在摸索中有意外成功執行一次


以下是code
.
.
.
  '建立樞紐分析表資料來源
   Dim Prng As Range
   Set Prng = Range(Range("b2"), Range("b2").End(xlToRight).End(xlDown))
   With ThisWorkbook
    .Sheets.Add(after:=.Sheets(.Sheets.Count)).Name = txtSheet.Text
   End With

  '出錯的地方
   ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
     Prng, Version:=xlPivotTableVersion15).CreatePivotTable _
     TableDestination:=txtSheet.Text & "!R3C1", TableName:="樞紐分析表1",
     DefaultVersion:= _
     xlPivotTableVersion15
.
.
.

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 220.136.65.179
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1487761850.A.D36.html
→ soyoso: https://goo.gl/IW2taw 當傳遞範圍，建議使用字串來指定
→ soyoso: 活頁簿、 工作表，以及儲存格範圍
→ soyoso: 傳遞 * * 範圍 * * 物件可能會導致 「 類型不符合 」 錯誤
→ unhumanWu: 感謝Ｓ哥，明天再來試試看