coepivottable.sbs

来自「SPSS的实战介绍」· SBS 代码 · 共 30 行

Sub Main
    Dim objSpssApp As Object
    Dim objDocuments As ISpssDocuments
    Dim objOutputDoc As ISpssOutputDoc
    Set objSpssApp=CreateObject("spss.application")
    Set objDocuments=objSpssApp.Documents
    Set objOutputDoc = objDocuments.GetOutputDoc (0)
    Dim objOutputItems As ISpssItems
    Dim objOutputItem As ISpssItem
    Dim objPivotTable As PivotTable

    Set objOutputItems = objOutputDoc.Items

    ' 激活标签为"Coefficients"的转轴表。
    Dim intCount As Integer
    Dim I As Integer
    intCount=objOutputItems.Count
    For I = 0 To intCount-1
	    Set objOutputItem = objOutputItems.GetItem(I)
	    If objOutputItem.SPSSType = SPSSPivot And objOutputItem.Label="Coefficients" Then
		    Set objPivotTable=objOutputItem.ActivateTable
	    	Exit For
	    End If
    Next

    '释放对象
    objOutputItem.Deactivate
    Set objSpssApp=Nothing
End Sub