Проблема со сводными.

[KaSS]

Как правильно создавать сводные программно?

Я делаю так:

Dim PTCache As PivotCache
Dim PT As PivotTable
Set PTCache = ActiveWorkbook.PivotCaches.Create( _
SourceType:=xlDatabase, _
SourceData:=wsh1.UsedRange)

Set PT = wsh.PivotTables.Add( _
PivotCache:=PTCache, _
TableDestination:=wsh.Range("A3"))
.
.
.

Он то работает, то нет.
Валится на строке Set PTCach пишет ошибку
Run-time error '13'
Type mismatch

Может кто то мне объяснит в чем проблема?
Экспериментировала с SourceData поменяла UsedRange на Range(Cells(1,1), Cells(150,num_col)) так работает, когда меняю номер строки на >150 валится, как было описано выше.
Или посоветуйте другой способ для создания сводных или скажите где почитать.

[KaSS]

Что, неужели никто сводные программно не создает?(

[kuklp]

Вы сейчас много видели докторов, чтоб лечили по описанию? Все равно Вас пощупают, пошлют на анализы. Где пример? Тут должны по обрывку кода диагноз поставить и лечение назначить?
Навскидку - UsedRange штука ненадежная. Захватит даже те области, где когда то были данные и даже форматирование. И сводные в том числе.

Экспериментировала с SourceData поменяла UsedRange на Range(Cells(1,1), Cells(150,num_col)) так работает, когда меняю номер строки на >150 валится, как было описано выше.

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

[kuklp]

Кросс:
http://www.planetaexcel.ru/forum/ind...IT&result=edit

[KaSS]

Сообщение от kuklp

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

А насчет данных, ну не могу я именно те данные дать, они конфиденциальны. А для данных "от балды" такое создание работает.

Потому что при вычислении последней заполненной строки(где-то 600) и валится ошибка. Вставила вручную 200 - валится, вставила 100 -не валится. Экспериментально получилось что валится начиная со 151 строки.

Конечно как ты сказал "кросс", если не здесь, ни там никто не отвечает. А отвечают не то что нужно.

Можете дать ссылку для ПРАВИЛЬНОГО создания сводных?

[IgorGO]

а сделать сводную вручную на 200 строк? работает?

[KaSS]

Да, работает.
Я пока вроде разобралась.
Установила SourceData=str_rg, где str_rg=name_sheet&"!C1R1:C"&num_row &"R"&num_col,
где num_row и num_col соответственно последние строка и столбец.
Надеюсь и дальше будет работать. А то бывает на одном компе работает, а на другом нет.

Dim PTCache As PivotCache
Dim PT As PivotTable
Dim str_rg As String
    
str_rg = str_table & "!R1C1:R" & num_row & "C" & num_col

Set PTCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
    SourceData:=str_rg, _
    Version:=xlPivotTableVersion14)
    Set PT = wsh.PivotTables.Add( _
                        PivotCache:=PTCache, TableDestination:=Workbooks(main_book).Sheets(str).Range("A3"))