VBA：使用With with a space

Question

我正在尝试清理创建动态交叉表的代码

我有很多要添加的字段，我正在考虑使用With：

 Ws.PivotTables(DCT_Name).AddDataField Ws.PivotTables(DCT_Name).PivotFields("Quantity"), "Total Qty", xlSum

改为：

With Ws.PivotTables(DCT_Name).AddDataField Ws.PivotTables(DCT_Name)
    .PivotFields ("Quantity"), "Total Qty", xlSum

但这不起作用......

我被迫做了：

With Ws.PivotTables(DCT_Name)
    .AddDataField Ws.PivotTables(DCT_Name).PivotFields ("Quantity"), "Total Qty", xlSum

谢谢你的答案！

Answer 1

不，应该阅读

With Ws.PivotTables(DCT_Name)
    .AddDataField .PivotFields ("Quantity"), "Total Qty", xlSum  

通常，公共前缀（对象）被放入With语句中。