我正在尝试进行编码，以便其中一个枢轴过滤器可以过滤当前月份。但这给我一个错误
子Macro1（） ' 'Macro1宏 Dim Lmonth作为整数 Lmonth = Month（Worksheets（“ Cash Receipts”）。Range（“ A1”）。Value）
' ActiveSheet.PivotTables（“ PivotTable1”）。PivotFields（“ [Date]。[Month]。[Month]”）。 _ VisibleItemsList = Array（“ [日期]。[月]。＆[2018-]＆Lmonth＆[-01T00：00：00]”） 结束
请帮助。