Обновление сводной таблицы со значением ячейки

Question

У меня есть следующий код,

'latest date effort
Dim DataDataData As Long
DataDataData = Application.WorksheetFunction.CountA(ThisWorkbook.Sheets("Data").Range("A1:A1048576"))
Dim DataDataData2 As String
DataDataData2 = Sheets("Data").Range("A" & DataDataData)        

'refresh pivot#1
Sheets("Data").Select
ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable2").PivotFields("Date").AutoSort xlAscending _
    , "Date"

'refresh pivot#2
ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable3").PivotFields("Date").ClearAllFilters
ActiveSheet.PivotTables("PivotTable3").PivotFields("Date").CurrentPage = _
    Sheets("Data").Range("A" & DataDataData)

Пиво обновления # 1 работает нормально и выполняет то, что мне нужно, однако вторая ошибка с ошибкой, определяемой приложением или объектом.

Я хочу обновить сводку с последней ячейкой моего списка данных, которая будет самой последней датой списка данных.

Любая помощь будет оценена.

Спасибо

Answer 1

Преобразование вашей даты в строку:

ActiveSheet.PivotTables("PivotTable3").PivotFields("Date").CurrentPage = _
    cstr(Sheets("Data").Range("A" & DataDataData))