Ошибка выполнения 13: несоответствие типа

Question

Я пытаюсь выполнить простой код для создания сводной таблицы, используя мои данные.

Sub PTable() 
Dim PT As PivotTable 
Dim PTCache As PivotCache 
Dim rng As Range 
Set rng = Range("A1", Range("A1").End(xlToRight).End(xlDown)) 
rng.Select 

Set PTCache = ActiveWorkbook.PivotCaches.Create(xlDatabase, rng) 
Sheets("New").Activate 
Set PT = ActiveSheet.PivotTables.Add(PTCache, Range("A1"), "My_PT") 
End Sub 

Runtime error 13, Тип Несоответствие выбрасывается при настройке PTCache. Это происходит очень часто, когда я работаю с Pivot Tables на моем excel, используя VBA.

Answer 1

Эта строка Set rng = Range("A1", Range("A1").End(xlToRight).End(xlDown)) устанавливает очень большой диапазон "$1:$1048576". Вы можете посмотреть его в отладчике:

Range("A1", Range("A1").End(xlToRight).End(xlDown)).Address 
=> "$1:$1048576" 

Может быть что-то неправильно с диапазоном, который вы хотите использовать в ActiveWorkbook.PivotCaches.Create?

Попробуйте также использовать этот Microsoft's advice о втором аргументе PivotCache.Create:

При прохождении в диапазоне, рекомендуются использовать либо строку указать рабочую книгу, рабочий лист, и диапазон ячеек, или настроить с именем и передайте имя в виде строки. Передача Диапазон Объект может вызывает ошибки типа «непонимание».

Answer 2

Кроме того, вы можете попробовать

Set rng = Range("A1").CurrentRegion 

который, как Ctrl + Shift + * вместо

Set rng = Range("A1", Range("A1").End(xlToRight).End(xlDown)) 

Выполнение одного метода (т.е. .CurrentRegion) вместо двух методов (то есть, xlToRight, за которым следует xlDown), скорее всего, будет менее интенсивным в памяти и устранить сбой типа Mismatch.