'BEGIN DESCRIPTION
'Uruchamia procedur꠆REQUENCIES dla wszystkich zmiennych jako?ciowych 
'i DESCRIPTIVES dla zmiennych ilo?ciowych znajduj?cych si꠷ zbiorze danych.
'END DESCRIPTION

Option Explicit

Sub Main

Const TITLE="Proste statystyki dla wszystkich zmiennych"
' get variables
	Dim objDataDoc As ISpssDataDoc
	Dim objDocuments As ISpssDocuments
	Set objDocuments = objSpssApp.Documents

	' Deklaracja zmiennych i okre?lenie ich typu.
	Dim numVars As Long
	Dim vrtVarNames As Variant
	Dim vrtVarLabels As Variant
	Dim vrtVarTypes As Variant
	Dim vrtVarMsmtLevels As Variant
	Dim vrtLabelCounts As Variant
	Dim CatVarlist As String, ScaleVarlist As String

	' Otwarcie pliku danych SPSS.
	Set objDataDoc = objDocuments.GetDataDoc(0)

	' Pozyskanie informacji o zmiennych.
	numVars = objDataDoc.GetVariableInfo(vrtVarNames, vrtVarLabels, _
          vrtVarTypes, vrtVarMsmtLevels, vrtLabelCounts)
	If (numVars = 0) Then
		MsgBox "Plik danych musi by栯twarty przed uruchomieniem skryptu!", _
                 vbOkOnly, TITLE
		Exit Sub
	End If

	' Zmienne jako?ciowe
	Dim i As Integer
	For i = 0 To numVars-1
		If (vrtVarMsmtLevels(i) <> SpssMsmtLevelScale) Then
			CatVarlist = CatVarlist & " " & vrtVarNames(i)
		Else
			ScaleVarlist = ScaleVarlist & " " & vrtVarNames(i)
		End If
	Next
	If (Len(CatVarlist) > 0) Then
		objSpssApp.ExecuteCommands "FREQUENCIES " & CatVarlist & "/BARCHART PERCENT .", _
                 False	'run cmd asynchronously
	End If
	If (Len(ScaleVarlist) > 0) Then
		objSpssApp.ExecuteCommands "DESCRIPTIVES " & ScaleVarlist & ".", _
                 False
	End If

' Koniec skryptu
End Sub