我之前使用过此代码在Excel中设置报表过滤器,但由于某种原因,我现在不断收到“预期:结束语句”,突出显示“当前页面”
Sheets("Template").PivotTables("PivotTable1").PivotFields ("Company_Name") _
CurrentPage = Sheets("Template").Range("E1").Text
答案 0 :(得分:1)
下划线是行继续符。你的陈述应该在两个不同的行上,并且总是在下划线前面加上一个空格 - 我知道你已经这样做了,但我提到这个是为了其他人阅读:
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