GoldenLine
Zaloguj się
Igor Muryjas

Igor Muryjas Student, Akademia
Ekonomiczna im.
Oskara Langego we
Wrocł...

Temat: Tabela przestawna

Witam

Mam pytanie odnośnie konsolidacyjnej tabeli przestawnej. Przy jej tworzeniu przy użyciu kreatora w kroku 2 wskazuje się źródła danych - kolejne są dodawane do listboxa kreatora. Po zarejestrowaniu tworzenia takiej tabeli widać, że elementy te są zapisywane jako Array czyli tablice. Jak można za pomocą VBA wyodrębnić źródła danej konsolidacyjnej tabeli przestawnej, innymi słowy, jak można zwrócić wszystkich elementów array datasource'u tabeli? Potrzębuję je użyć w dalszej części kodu, ale nie mogę jakoś uzyskać do nich dostępu.
Z góry dzięki za info!
Link do wypowiedziLink
Bartek Borczyk

Bartek Borczyk Operator liczb i
słów

Temat: Tabela przestawna

Dziwna sprawa. Kod podany w pomocy dla SOURCEDATA nie za bardzo chce działać - wyrzuca błąd OUT OF RANGE. Spróbowałem coś takiego:
trzy arkusze, dwa pierwsze - zakresy do konsolidacji, trzeci to pivot

Taki kod:

Sub test()
Dim ws As Worksheet
Dim pt As PivotTable
Dim z As Variant

Set ws = ActiveSheet 'kod wywołany z arkusza pivotu
Set pt = ws.PivotTables(1)
z = pt.SourceData

[e1:f2].Value = z 'zakres zmienić w zależności od liczby zakresów

Set ws = Nothing
Set pc = Nothing
End Sub

nie wywala błedu ale czy się przyda bez iteracji? Dostajemy dwu-wymiarowy array(adres;nazwa_elementu). Ale nie zostawię tego tak, poszukam, pobróbuję, może coś wyjdzie. Ale nie teraz.Bartosz Borczyk edytował(a) ten post dnia 23.10.08 o godzinie 09:43
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

Tabela przestawna




Wyślij zaproszenie do
Anuluj