Excel вылетает при перекрестной фильтрации

Question

У меня есть книга только для чтения 2013 года, которую я использую в качестве инструмента шаблона с моделью данных, идущей к 4 связанным сводным диаграммам с перекрестной фильтрацией с включенным слайсером. Когда я выбираю параметры фильтра на одном слайсере, которые отфильтровывают все параметры с данными на другом слайсере, моя книга падает.

То есть слайсер 1 имеет опцию A, B, C и так далее.

• Вариант А относится к подмножеству 1, 2 и 3 на слайсере 2.
• Вариант B связан с подмножеством 4, 5 и 6 на слайсере 2.

Если на слайсере 2 выбраны какие-либо данные, и я фильтрую слайсер 1, чтобы исключить какую-либо часть этого выбора, моя книга вылетает.

Вещи, которые не работали:

• Я перестроил диаграммы, слайсеры и соединения и все еще получаю ту же проблему.
• Я построил очень простую модель в другой книге и не смог воспроизвести проблему.
• Я выключил события.
• Я закомментировал свой VBA.

Если я буду осторожен, то выбирайте элементы, которые разделяют отношение среза 1, из среза 2, кажется, что "работает", но что-то здесь явно сломано.

Это условие, по-видимому, возникает только в том случае, если в связанных подмножествах отсутствует перекрытие для слайсера 1 из слайсера 2. Если опция А имеет подмножество 1, 2, 3, 4, 5. ., и у опции B есть 3, 4, 5, но нет 1 или 2, я не понимаю проблему, это только, когда все подмножества являются уникальными для родителя, и выборы не перекрываются (как нет 5 в A = сбой, когда 5 является уникально для B и A выбрано). Я не мог найти какие-либо известные проблемы, связанные с этим.

Просмотр событий показывает:

Faulting application name: EXCEL.EXE, version: 15.0.4797.1003, time stamp: 0x56bf05fc
    Faulting module name: msolap110_xl.DLL, version: 0.0.0.0, time stamp: 0x55b0c5bf

Мои вопросы:

1. Может ли быть проблема "msolap110_xl.DLL" или это более вероятная часть симптома?

2. Неужели я каким-то образом неправильно справился с сводными диаграммами, срезами или моделью данных?

3. Это можно исправить?

Соответствующее программирование:

Private Sub myReloadDataModel()
    If Range("myHasPath").Value = "True" Then
        MsgBox "You need to enter a path to a valid target location.", vbOKOnly, "Bad Path"
    Else
        myUser = MsgBox("Are you sure you want Reload the Data Model with any csv data located in the target path?", vbOKCancel, "3. Load Data Model")
        If myUser = vbOK Then

            Application.ScreenUpdating = False
            Application.EnableEvents = False
            Application.Cursor = xlWait

            myTime01 = Time
            Sheets("Notes").Unprotect
            Sheets("2. Get Table").Unprotect
            ActiveWorkbook.RefreshAll
'            ActiveWorkbook.Model.Refresh
'            ActiveWorkbook.Connections("Query - myGetMasterSpan").Refresh
            x = ActiveWorkbook.Connections("Query - myGetMasterSpan").ModelTables.Item(1).RecordCount
            myTime02 = Time
            myTime03 = Format(myTime02 - myTime01, "HH:MM:SS")

            Sheets("2. Get Table").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
                , AllowUsingPivotTables:=True

            Application.Cursor = xlDefault
            Application.EnableEvents = True
            Application.ScreenUpdating = True

            MsgBox Format(x, "#,##0") & " Records Loaded!" & vbNewLine _
                & vbNewLine _
                & "Total Update Time = " & myTime03, , "Update Completed"
        End If
    End If
End Sub

событие

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    On Error Resume Next
    Application.ScreenUpdating = Fales
    Application.EnableEvents = False
    Sheets("2. Get Table").Unprotect

    Application.Run "mySlicerMagic"
    ActiveWorkbook.Connections("LinkedTable_Table6").Refresh

    Set myChart04 = Sheets("Flow Errors").ChartObjects("Chart 4").Chart
        myChart04.ChartTitle.Text = Range("myErrorsTitle")
    With myChart04.Axes(xlValue)
        .MinimumScale = Range("myMin_Scale")
        .MaximumScale = Range("myMax_Scale")
    End With

    Set myChart05 = Sheets("Flow Errors").ChartObjects("Chart 5").Chart
        myChart05.ChartTitle.Text = Range("myErrorsTitle")
    With myChart05.Axes(xlValue)
        .MinimumScale = Range("myMin_Zoom")
        .MaximumScale = Range("myMax_Zoom")
    End With

        Application.Run "myChart5Format"

    Set thisPulseChart_02 = Sheets("Pulse Analyzer").ChartObjects("Chart 2").Chart
    With thisPulseChart_02
        .ChartTitle.Text = "Full Pulse Flow - " & Range("myErrorsTitle")
    End With
    With thisPulseChart_02.Axes(xlValue)
        .MaximumScale = Range("myMax_Scale") + 0.09
    End With

    Set thisPulseChart_03 = Sheets("Pulse Analyzer").ChartObjects("Chart 3").Chart
    With thisPulseChart_03
        .ChartTitle.Text = "Raw Pulse Flow by Pulse- " & Range("myErrorsTitle")
    End With

        Application.Run "myChart3Format"

    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Этот саб получает диапазон выбора для меня

Private Sub mySlicerMagic()
    On Error GoTo 100

    Set myX = ActiveWorkbook.SlicerCaches("Slicer_Pulse_Set").SlicerCacheLevels(1).SlicerItems

    For i = 1 To myX.Count
        If myX(i).Selected = True Then
            x = x + 1
            If x = 1 Then
                myItemName01 = myX(i).SourceName
            End If
            myItemName02 = myX(i).SourceName
        End If
    Next

    Range("myPulseRange")(1, 1) = myItemName01
    Range("myPulseRange")(2, 1) = myItemName02
100
End Sub