Почему я получаю ошибку несоответствия типа, пытающуюся создать сводный кеш?

Программа Excel VBA содержит следующую функцию, которую она вызывает несколько раз. Функция PivotCaches.Create, вызываемая внутри функции, вызывает ошибку времени выполнения (13) в четвертый или пятый раз, когда я вызываю функцию, после того, как она работает нормально в предыдущих экземплярах.

Function CreateSomePivots(ByVal wb As Workbook, _ 'Workbook to use for pivots ByVal srcn As String, _ 'Name of source worksheet with data table ByVal destn As String, _ 'Name of destination worksheet on which to store pivots ByRef pts As PivotTable, _ 'Array in which to store pivot tables Optional ByVal orgVar As String = "Assigned Org", _ 'Name of assigned org variable Optional ByVal emplidVar As String = "Employee Emplid", _ 'Name of employee ID variable Optional ByVal byVar As String = "", _ 'Variable to compare groups on Optional ByVal regHires As Boolean = False) _ 'Filters on regular hires As Boolean 'Returns True if new worksheet created Dim ps As Worksheet 'Sheet with pivot tables Dim src As Worksheet 'Source worksheet with data table Dim loc As String 'Location Dim pc As PivotCache 'Pivot cache Dim pi As PivotItem 'Pivot item Dim i As Integer 'Iterate through groups On Error Resume Next Set ps = wb.Sheets(destn) Set src = wb.Sheets(srcn) On Error GoTo 0 If ps Is Nothing Then wb.Activate Set ps = Sheets.Add(Before:=src) ps.name = destn loc = "'destn'!" & Range("A3").Address(ReferenceStyle:=xlR1C1) Set pc = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _ SourceData:=Sheets(srcn).ListObjects(1).Range, _ Version:=xlPivotTableVersion15) Set pts(0) = pc.CreatePivotTable(loc) ... CreateSomePivots = True End If CreateSomePivots = False End Function 

Я проверил все параметры, которые я передал функции, и попытался манипулировать вызовом функции. Ничто не кажется неправильным, но я не могу избавиться от этой ошибки.

  • Отличное суммарное количество - PowerPivot, вычисленные поля и DAX
  • VBA для обновления всех опорных точек и источника данных до вновь добавленных строк
  • Excel VBA - Изменение фильтров Pivot Table на нескольких листах на основе списка
  • Как создать Pivot из выделения, в VBA, Excel
  • Сводная таблица Значения теперь вялые
  • C # EPPlus перемещает «генерируемое поле сумм» в поля столбцов
  • «для завершения этой операции слишком много записей» Обновление таблицы сводных таблиц Excel
  • PivotTable сортирует даты как текст, а не хронологически
  • Сводная таблица с EPPlus с неправильными полями столбцов
  • Excel 2013 - сводная таблица, обновляющаяся из любого места
  • Вставить метку столбца в сводную таблицу с помощью Apache POI?
  • Interesting Posts

    После защиты целых клеток и как разрешить добавлять или удалять строки в excel?

    Excel – VLOOKUP возвращает каждый результат в массиве, а не только первый

    Excel – VBA – установка вертикально введенных параметров идентификатора по горизонтали

    Пользовательская команда для копирования на основе CheckBox True / False

    Ошибка VB (A), когда COM-DLL пытается экземпляр объекта NET-DLL

    Ошибка компиляции в шаблоне RegExp с двойными кавычками

    VBA Вычислить функцию и формулу массива, возвращающую диапазон значений

    Ошибка сброса функции VBA после функции VBA Clear

    Количественная оценка условной продолжительности значений в excel

    как я могу сократить время процесса с помощью excel vba

    c # – Interior.Color не работает

    Excel VBA UserForm (Активировать листинг по выбору списка)

    Почему R держит разрешение на изменение файлов excel?

    VBA – Как я могу назвать раздел кода?

    Получите значение Excel Option Box с помощью C #

    Давайте будем гением компьютера.