添加字段

Question

我有这个宏从远程数据创建一个数据透视表（＆＃34; PvtData＆＃34;）。 当代码尝试添加PivotField时，我不断收到运行时错误1004（应用程序定义或对象定义错误）。

以下是代码的一部分;

Workbooks(PivotFile).PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    "PvtData", Version:=xlPivotTableVersion14).CreatePivotTable _
    TableDestination:="PvtResult", TableName:="PivotTable1", DefaultVersion _
    :=xlPivotTableVersion14

'Work up to here

With ActiveSheet.PivotTables("PivotTable1").PivotFields("COB")
    .Orientation = xlColumnField
    .Position = 1
End With

With ActiveSheet.PivotTables("PivotTable1").PivotFields("Product")
    .Orientation = xlRowField
    .Position = 1
End With

With ActiveSheet.PivotTables("PivotTable1").PivotFields("Book")
    .Orientation = xlRowField
    .Position = 2
End With

我已尝试录制宏，它提供相同的代码行。

将表格目的地更改为空（＆＃34;＆＃34;）无效。

Answer 1

添加字段后，请尝试使用您的代码。

pvtTable.AddFields("COB")
With pvtTable.PivotFields("COB")
.Orientation = xlColumnField
.Position = 1
End With