作者unhumanWu (阿文)
看板Office
标题[问题] VBA 枢纽分析表
时间Wed Feb 22 19:10:48 2017
(若是和其他不同软体互动之问题 请记得一并填写)
软体: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://webptt.com/cn.aspx?n=bbs/Office/M.1487761850.A.D36.html
2F：→ soyoso: 活页簿、 工作表，以及储存格范围 02/22 20:09
3F：→ soyoso: 传递 * * 范围 * * 物件可能会导致 「 类型不符合 」 错误 02/22 20:10
4F：→ unhumanWu: 感谢Ｓ哥，明天再来试试看 02/22 21:50