Question

我正在尝试将excel中的数据复制到SPSS中。我有80个excel文件，需要将每个工作簿中的相同单元格复制并粘贴到我的主SPSS数据库中。除了手动复制和粘贴每个单独的值之外，我有什么办法可以做到这一点吗？

Answer 1

如果您至少拥有SPSS Statistics 17，则另一种方法是使用SPSS社区网站（www.ibm.com/developerworks/spssdevcentral）提供的SPSSINC PROCESS FILES扩展命令。这可以遍历一组文件并对每个文件应用SPSS语法，包括GET DATA以读取文件。因此，它可以读取您想要的Excel文件，在SPSS Statistics中打开它们，然后选择数据集的任何部分是合适的。

这需要您的统计版本的Python Essentials /插件也可以从社区网站获得，但不需要使用SPSS语法以外的其他技能。

HTH，乔恩佩克

Answer 2

我在工作中使用SPSS，我们每天从excel导入数据。我们执行另存为制表符分隔的文本格式，并使用SPSS Syntax脚本导入文本文件。由于你有这么多excel文件，你可以使用一些vba自动化整个“另存为”过程，如果这会让事情变得更容易。

<强>更新

这是在目录中循环（Excel）文件的一小段代码，打开每个文件，然后保存为制表符分隔的文本文件。如果您的文件是。.xls或xlsx，请更改.xlsm名称，同时您还要将文件夹路径更改为有意义的内容...

Sub TestMe()
Dim wb As Workbook
Dim INfldr As String
Dim OUTfldr as String

OUTfldr = "C:\WhereIPutStuff\"
INfldr = "C:\WhereIKeepStuff\"
strFNAME = Dir(INfldr & "*.xls")

i = 1

Do
Set wb = Application.Workbooks.Open(INfldr & strFNAME)
wb.SaveAs Filename:=OUTfldr & "OutputFile(" & i & ").txt", _
          FileFormat:=xlText, _
          CreateBackup:=False

wb.Close False

i = i + 1  
strFNAME = Dir
Loop Until strFNAME = ""

End Sub

将EXCEL中的特定细胞复制并粘贴到特定的SPSS细胞中

2 个答案: