作者williamsm (Roger)
看板Visual_Basic
标题[VBA ] 枢纽分析图
时间Fri Mar 24 18:34:51 2017
目前尝试打开别的EXCEL去产生枢纽分析图
我把另一份的EXCEL定义成
Set MyXlsData = New Excel.Application
接着把MyXlsData第三页的资料框起来，於第一页产生枢纽分析图
但似乎无法产生，错误讯息是:"438,物件不支援此属性或方法"
使用了网路教学与录制巨集都是一样(请参考下面)
想请问是哪边出了问题，谢谢
1.
MyXlsData.PivotCaches.Create(SourceType:=xlDatabase,
SourceData:=Range(MyXlsData.Worksheets(3).Cells(2, 1),
ThisWorkbook.Worksheets(3).Cells(44, 4)),
Version:=xlPivotTableVersion15).CreatePivotTable
TableDestination:=Range(MyXlsData.Worksheets(1).Cells(2, 1),
MyXlsData.Worksheets(1).Cells(2, 2)), TableName:="枢纽分析表5",
DefaultVersion:=xlPivotTableVersion15
2.
Prng=Range(xxx...)
MyXlsData.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
Prng, Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:=MyXlsData.Worksheets(1).Cells(2, _
2) & "!R3C1", TableName:="枢纽分析表5", DefaultVersion:=xlPivotTableVersion15
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 61.220.206.157
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1490351694.A.AC8.html
1F：→ coyoteY: 所以是要用thisworkbook去呼叫myxlsdata? 03/24 19:18
2F：→ williamsm: 是的 03/24 19:24
3F：→ coyoteY: 怪怪的,1的资源来源两份都有引用@@ 2的range指定来源也是 03/24 19:35
4F：→ coyoteY: 有完整程式码吗? 03/24 19:35
5F：→ coyoteY: 自已用vba刻比较快~用google找vba 枢纽分析表 03/24 19:36
6F：→ coyoteY: 另外myxlsdata改用workbook类别 03/24 19:48