(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體: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