0

我之前使用此代码在 Excel 中设置报告过滤器,但由于某种原因,我现在不断收到“预期:语句结束”,突出显示“CurrentPage”

Sheets("Template").PivotTables("PivotTable1").PivotFields ("Company_Name") _
         CurrentPage = Sheets("Template").Range("E1").Text
4

1 回答 1

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
于 2013-06-26T16:00:22.297 回答