Я пытаюсь кодировать так, чтобы один из сводных фильтров текущего месяца. Но это дает мне ошибку
Sub Macro1 ()
'
Макро1 Макро
Dim Lmonth As Integer
Месяц = Месяц (рабочие листы («Денежные поступления»). Диапазон («А1»). Значение)
ActiveSheet.PivotTables ( "PivotTable1"). PivotFields ( "[Дата]. [Месяц]. [Месяц]"). _
VisibleItemsList = Array ("[Дата]. [Месяц]. & [2018 -] & Lmonth & [- 01T00: 00: 00]")
End Sub
Пожалуйста, помогите.