将EXCEL中的特定单元格复制粘贴到特定的SPSS单元格中

Question

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

Answer 1

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

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

HTH，Jon Peck

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