excel - 使用 Excel VBA 将 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

我很困惑为什么 SPSS 无法读取我创建的 *.sps 文件的 20%。
当出现此类异常时，可以使用任何其他编辑工具(例如 notepad/npp/sublime/UE/等)正确查看 *.sps 文件，但在 IBM SPSS Statistics 中打开时，它仅被读取为一行汉字。
举个例子，这些是包含在我的 *.sps 文件中的行:

Rename Variables (AU3a01 = AU3a_1). Rename Variables (AU3a02 =AU3a_2). Rename Variables (AU3a03 = AU3a_3). Rename Variables (AU3a04= AU3a_4). Rename Variables (AU3a05 = AU3a_5). Rename Variables (AU3a06 = AU3a_6). Variable Labels AU3a_1 "Brand A". Variable LabelsAU3a_2 "Brand B". Variable Labels AU3a_3 "Brand C". Variable LabelsAU3a_4 "Brand D". Variable Labels AU3a_5 "Brand E". Variable LabelsAU3a_6 "Brand F". Value Labels /AU3a_1 to AU3a_6 1 "1 - Terrible" 2"2" 3 "3" 4 "4" 5 "5" 6 "6" 7 "7" 8 "8" 9 "9" 10 "10 - Perfect".Execute.

SPSS 错误显示

Answer 1

k，感谢您的及时答复。

进行了更深入的挖掘并提出了一个解决方案，该解决方案涉及将库引用作为附加图像。这是通过转到模块编辑窗口中的工具>>引用来完成的。



奇怪的是，我已经搜索了 3 周的解决方案，幸运的是，就在今天遇到了这个解决方案。 :)