Несоответствие типа во время создания сводной таблицы: Excel vba

Question

Я новичок в VBA. Я пытаюсь создать сводную таблицу для очень большой записи (около 30K Record). Это мой код для создания сводной таблицы. при создании сводной таблицы он выдает ошибку как «несоответствие типа». Он отлично работал для небольшого набора записей.

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=rngData, _ 
Version:=xlPivotTableVersion12).CreatePivotTable TableDestination:=wsPvtTbl.Range("A1"), _ 
TableName:="PivotTable1", DefaultVersion:=xlPivotTableVersion12 

Пожалуйста, помогите мне в этом. Заранее спасибо

Answer 1

Вы можете использовать что-то подобное с переменной rngData:

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="'" & rngData.Worksheet.name & "'!" & rngData.Address(referencestyle:=xlR1C1), _ 
Version:=xlPivotTableVersion12).CreatePivotTable TableDestination:=wsPvtTbl.Range("A1"), _ 
TableName:="PivotTable1", DefaultVersion:=xlPivotTableVersion12