我之前使用此代码在 Excel 中设置报告过滤器,但由于某种原因,我现在不断收到“预期:语句结束”,突出显示“CurrentPage”
Sheets("Template").PivotTables("PivotTable1").PivotFields ("Company_Name") _
CurrentPage = Sheets("Template").Range("E1").Text
下划线是换行符。你的陈述应该在两条不同的行上,并且总是在下划线之前加一个空格——我知道你已经这样做了,但我会为其他阅读者提到这一点:
Sheets("Template").PivotTables("PivotTable1").PivotFields("Company_Name") _
CurrentPage = Sheets("Template").Range("E1").Text
但是,CurrentPage
是 的一个属性PivotField
,因此您缺少第二行开头的点:
Sheets("Template").PivotTables("PivotTable1").PivotFields("Company_Name") _
.CurrentPage = Sheets("Template").Range("E1").Text