'BEGIN DESCRIPTION
'Wszystkie tabele przestawne (Pivot Table) w raporcie 
's? formatowane przez wskazany szablon wygl?du tabel TableLook.
'R󷮩e? ukryte tabele s? formatowane.
'Autor: Arnd Winter.    
'END DESCRIPTION

Sub Main

On Error GoTo Bye

' Deklaracja zmiennych

Dim objOutputDoc As ISpssOutputDoc
Set objOutputDoc = objSpssApp.GetDesignatedOutputDoc
Dim strAppPath As String
Dim objOutputItems As ISpssItems
Dim objOutputItem As ISpssItem
Dim objPivotTable As PivotTable
Dim intCount As Integer
Dim varStrLook As String
Set objOutputItems=objOutputDoc.Items

' Znajduje katalog SPSS 
strAppPath = objSpssApp.GetSPSSPath

' Wyb󲠳zablonu TableLook 
VarStrLook = GetFilePath$("*.tlo","tlo",strAppPath,"Wybierz szablon tabel TableLook",4)


' Wyj?cie z programu dla przycisku Anuluj lub b?ꤵ

If (Len(varStrLook)= 0) Or (Right(varStrLook,3)<>"tlo") Then
	Exit Sub
End If 	

' P괬a przypisuj?ca szablon TableLook do wszystkich istniej?cych tabel.

intCount = objOutputItems.Count
For I = 0 To intCount-1
	Set objOutputItem=objOutputItems.GetItem(I)
	If objOutputItem.SPSSType=SPSSPivot Then
		Set objPivotTable=objOutputItem.ActivateTable
		objPivotTable.TableLook = varStrLook
		objOutputItem.Deactivate
	End If
Next 
' Koniec skryptu
Bye:
End Sub