Export variable name and variable labels to text file

' Requirements	: data file must be in the data editor
' Results		: for each variable name; the var name and the var label are saved in a text file.
' Instuctions	: Run this script first then import the txt file into MS Access
' Raynald Levesque 2000/09/21 rlevesque@videotron.ca


Option Explicit
Sub Main
Dim objSPSSInfo As ISpssInfo
Dim NumVars As Long,I As Long,J As Long, VarName As String, VarLabel As String
 
Set objSPSSInfo = objSpssApp.SpssInfo
NumVars=objSPSSInfo.NumVariables-1
Open "c:\\temp\\variable label.txt" For Output As #1

For I=0 To NumVars
	  VarName= objSPSSInfo.VariableAt(I)
      VarLabel= objSPSSInfo.VariableLabelAt(I)
		If Len(varlabel)=0 Then 
           	varlabel=varname
        End If
        Print #1, Varname & "," & VarLabel 
Next I
Close #1
End Sub