Как я могу исправить эту ошибку объекта SlicerCache? - PullRequest
Новая
       5

Как я могу исправить эту ошибку объекта SlicerCache?

0 голосов
/ 10 ноября 2018

Ошибка 424 - «Требуется объект» в строке «Если нет».

Я пытался прочитать об этой ошибке, но я недостаточно знаком со SlicerCache, чтобы понять это - может кто-нибудь помочь, пожалуйста? 

Dim dStartDate As Date
Dim dEndDate As Date
Dim sDateRange As String
Dim sDateRange_Num As String
Dim sDateRangeHeader As String

If Not ActiveWorbook.SlicerCaches("NativeTimeline_Date").FilterCleared = False Then
    dStartDate = ActiveWorkbook.SlicerCaches("NativeTimeline_Date").TimelineState.FilterValue1
    dEndDate = ActiveWorkbook.SlicerCaches("NativeTimeline_Date").TimelineState.FilterValue2

    sDateRange = dStartDate & " - " & dEndDate
    sDateRangeHeader = "Reporting Period: " & sDateRange & " (" & dEndDate - dStartDate & " Days)"
    sDateRange_Num = dEndDate - dStartDate

Else
    dStartDate = WorksheetFunction.Min(Range("D1:D100"))
    dEndDate = WorksheetFunction.Max(Range("D1:D100"))

    sDateRange = dStartDate & " - " & dEndDate
    sDateRangeHeader = "Reporting Period: " & sDateRange & " (" & dEndDate - dStartDate & " Days)"
    sDateRange_Num = dEndDate - dStartDate

End If

1 Ответ

0 голосов
/ 11 ноября 2018

Вам нужно k в ActiveWorkbook. Всегда используйте Option Explicit в верхней части ваших модулей, чтобы поймать эти ошибки. 

ActiveWorkbook.SlicerCaches("NativeTimeline_Date").FilterCleared
...