Vba 编译错误：应为：表达式数据透视表

我当前在运行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，将：=显示为意外错误的行

你们知道我该怎么解决这个问题吗？

你们缺少了将语句转到下一行的符号。这将消除编译错误

---

但是，我还要确保对Sheet4的引用是正确的：当您添加新工作表时，不能保证Excel会将其命名为Sheet4，因此您应该在.add语句中强制使用该名称，或者在创建透视表后不要显式将其称为Sheet4。Excel添加工作表时，新工作表仍将变为活动工作表。

尝试运行此代码时，是否存在Sheet4？如果是，在运行代码之前，此工作表上有什么内容？可能是无法将数据透视表放在您指定的位置。另外，您收到的错误消息和号码是什么？不，Sheet4不存在。我得到的错误是1004编译错误预期：表达式集中在：=非常感谢马克！我听从了你的建议，现在它起作用了！