使用Excel将Excel表数据导出为SPSS语法格式(.sps)

Question

我需要导出一个输出表到*.sps (SPSS语法)格式。

我使用的代码有80%的工作时间：

Sub Print_CM_to_sps()
Dim FSO As Object
  Set FSO = CreateObject("Scripting.FileSystemObject")
  
  If FSO.FileExists(ThisWorkbook.Path & "\All_CM_Edits.sps") Then
    Set LogData = FSO.OpenTextFile(ThisWorkbook.Path & "\All_CM_Edits.sps", 2, True)
    LogData.Close
    Set LogDatas = FSO.OpenTextFile(ThisWorkbook.Path & "\All_CM_Edits.sps", 8, True)
    For i = 2 To lstRow
        LogDatas.WriteLine ThisWorkbook.Sheets("Data").Range("A" & i).value
    Next i
  Else
    Set NewFile = FSO.CreateTextFile(ThisWorkbook.Path & "\All_CM_Edits.sps", 8, True)
    For i = 2 To lstRow
        NewFile.WriteLine ThisWorkbook.Sheets("Data").Range("A" & i).value
    Next i
  End If
End Sub

我不明白为什么20%的时间我创建的*.sps文件是不可读的SPSS。

当出现这种异常时，可以使用任何其他编辑工具(例如记事本/npp/崇高/UE/等)正确地查看*.sps文件。但当在IBM SPSS统计中打开时，它只被读成一行汉字。

举个例子，这些行包含在我的*.sps文件中：

重命名变量(AU3a01 = AU3a_1)。重命名变量(AU3a02 = AU3a_2)。重命名变量(AU3a03 = AU3a_3)。重命名变量(AU3a04 = AU3a_4)。重命名变量(AU3a05 = AU3a_5)。重命名变量(AU3a06 = AU3a_6)。可变标签AU3a_1“品牌A”。可变标签AU3a_2“品牌B”。可变标签AU3a_3“品牌C”。可变标签AU3a_4“品牌D”。可变标签AU3a_5“品牌E”。可变标签AU3a_6“品牌F”。价值标签/AU3a_1到AU3a_6 1 "1 -可怕的"2“2 "3”3 "4“4 "5”5 "6“7”7 "8“8 "9”9 "10“10”完美“。执行。

SPSS错误显示

​

Answer 1

k，谢谢您的及时答复。

做了更深入的挖掘，并提供了一个解决方案，其中包括启用库引用作为附加映像。这是通过进入模块编辑窗口中的Tools>>References完成的。

​

​

奇怪的是，我已经寻找了三个星期的解决方案，幸运的是，今天才发现了这个解决方案。:)