excel - 特定のセルを EXCEL から特定の SPSS セルにコピー アンド ペーストする

Question

Excel から SPSS にデータをコピーしようとしています。80 個の Excel ファイルがあり、各ワークブックから同じセルをコピーしてメインの SPSS データベースに貼り付ける必要があります。個々の値を手動でコピーして貼り付ける以外に、これを行う方法はありますか?

Answer 1

少なくとも SPSS Statistics 17 がある場合の別のアプローチは、SPSS Community Web サイト (www.ibm.com/developerworks/spssdevcentral) から入手できる SPSSINC PROCESS FILES 拡張コマンドを使用することです。これにより、一連のファイルをループし、ファイルを読み取るための GET DATA を含む SPSS 構文をそれぞれに適用できます。そのため、必要な Excel ファイルを読み込んで SPSS Statistics で開き、データセットの適切な部分を選択することができます。

これには、コミュニティー Web サイトから入手できる Statistics バージョン用の Python Essentials/プラグインが必要ですが、SPSS 構文以外のスキルは必要ありません。

HTH、ジョン・ペック

Answer 2

私は仕事でSPSSを使用しており、Excelから毎日データをインポートしています。タブ区切りのテキスト形式に名前を付けて保存し、SPSSSyntaxスクリプトを使用してテキストファイルをインポートします。非常に多くの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