Compile Error: Expected: Expression PivotTable

Question

我目前在运行 VBA 代码时遇到这个问题。我创建了从 SAP GUI 下载报告的代码，我需要使用该电子表格创建数据透视表。我使用宏记录器创建了枢轴，但在运行它时遇到了这个问题。

Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    "Sheet1!R1C1:R1500C18", Version:=xlPivotTableVersion14).CreatePivotTable
    TableDestination:="Sheet4!R3C1", TableName:="PivotTable1", DefaultVersion _
    :=xlPivotTableVersion14
Sheets("Sheet4").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Company Code")
    .Orientation = xlRowField
    .Position = 1
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("FI / MM Doc")
    .Orientation = xlRowField
    .Position = 2
End With
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
    "PivotTable1").PivotFields("Document number"), "Count of Document number", _
    xlCount

问题出现在 Tabledestination:="Sheet4!R3C1" 行中，将“:=”显示为意外错误。

你们知道我该如何解决这个问题吗？

Answer 1

您缺少 _ 符号来将语句转移到下一行。这将消除你的编译错误。

但是，我还会考虑确保您对 Sheet4 的引用是正确的：当您添加新作品时sheet，不能保证 Excel 会调用它 Sheet4，因此您应该在 .Add 语句中强制使用该名称，或者在创建枢轴 table 后不要明确地将其称为 Sheet4。当 Excel 添加一个 sheet 时，新的 sheet 无论如何都会成为活动的。

Compile Error: Expected: Expression PivotTable

Compile Error: Expected: Expression PivotTable

excel

vba

pivot

excel-2010