[已解决]出现了" 应用程序定义或对象定义错误 " ?

hehehehebt

Sub create()
    Dim mypivot As PivotTable
    Sheets("bill").Activate
    Range("a1").Select
    Set mypivot = ActiveSheet.PivotTableWizard(SourceType:=xlDatabase, SourceData:=Sheets("bill").Range("a1:d38"), tablename:="table1")
    mypivot.AddFields RowFields:="agency"
    mypivot.AddDataField field:=mypivot.PivotFields("amount"), Caption:="", Function:=xlSum
    'mypivot.PivotTables("table1").CalculatedFields.Add "USD", "=amount / worksheets("exchange rate").range("a1")"
    'mypivot.AddDataField field:=mypivot.PivotFields("usd"), Function:=xlSum
End Sub
更新一下问题，版主已经帮忙把标题中的问题解决了，

现在的问题是我打算增加一个计算字段，叫做usd， 是用amount字段除以另一张表的a1单元格的值计算出来的，然后把这个usd字段添加到透视表值区域。计算字段那写错了，估计还是地址引用那里。请大家帮忙看看，谢谢！


我个人感觉刚开始学vba的时候，各种表，单元格的地址引用，比如什么时候加括号，引号等等，比较难掌握清楚。

最佳答案

月排行榜 / 总排行榜

1970-1-1 08:00

跳转到最佳答案楼层

hehehehebt

刚刚有突破了,原来是 caption 不能是amount，我换成别的名称，就能生成了，不过不太明白为什么

爱疯

至少，第1句不正确
Sheets("sheet1").Range("a1").Select

可改为
Sheets("sheet1").Activate
Range("a1").Select

hehehehebt

回复 爱疯 的帖子

谢谢版主!果然按照你写的改完以后解决了很大的问题,之前只能执行一遍,然后就不能继续生成新的透视表了,这样改完后就可以不断生成了.

还得再和版主请教个问题(不好意思,新手问题多多{:301:}）

我想添加个计算字段，用amount 除以6得到一个叫做usd的字段：
mypivot.PivotTables("table1").CalculatedFields.Add "USD", "=amount /6"
红色的部分应该是写错了，似乎amount字段不能直接这么写，修改半天也不成功，如何修改呢？

爱疯

楼主别这么说，我对透视表的代码也不熟。
最好能上传一下附件，大家才好理解你的问题，便于测试和回复。
如果担心数据安全，就替换下内容。

hehehehebt

回复 爱疯 的帖子

版主太好了!

我上传了这个附件. 现在工作中比较多用的就是数据透视表了,如果能研究好怎么用vba自动生成,会有很大帮助.{:021:}

Zipall

回复 hehehehebt 的帖子

Sub Macro4()
'
' Macro4 Macro
'
' 快捷键: Ctrl+Shift+P
'
    Sheets.Add
    ActiveWorkbook.PivotCaches.create(xlDatabase, "bill!a:d").CreatePivotTable Range("a3")
    With ActiveSheet.PivotTables(1)
        .AddFields "agency"
        .AddDataField .PivotFields("amount"), "求和项:amount", xlSum
        .CalculatedFields.Add "USD", "=amount /6", True
        .PivotFields("USD").Orientation = xlDataField
        .PivotFields("agency").PivotItems("(blank)").Visible = False
   End With
End Sub

hehehehebt

回复 Zipall 的帖子

谢谢zipall，之前你也帮助过我很多次。

你给的这段代码是录制的，不过我需要的是里面加入了变量的， amount/6的6，我想用变量代替，比如一个表里的a1的值，想知道如何输入

Zipall

"=amount /" & sheets("exchange rate").range("a1")

hehehehebt

回复 Zipall 的帖子

考了进去,还是不行,对象不支持该属性或方法
mypivot.PivotTables("table1").CalculatedFields.Add "USD", "=amount /" & Sheets("exchange rate").Range("a1")