エクセルの【.slk】ファイルを【.xls】に変換

質問

1つのフォルダにたくさん入っている.slkファイルを１つの.xlsファイルに結合したいです。
VBAにて作業したいのですがどなたかご教授願います。

【フォルダＡ】の中にマクロが入っているxlsファイルを置いて、
同じ場所にある全てのslkファイルを１つのシートにまとめてxlsファイルに出力したいです。
出力したファイルは同じフォルダの中に出力されるようにしたいです。

下記URLを参考にしてやってみようとしたのですが、上手く出力されることができませんでした。
【http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1155537766】

申し訳ありませんがどなたかご教授お願いします。

○イメージ
【フォルダＡ】
　┣マクロデータ.xls
　┣.slkファイル１
　┣.slkファイル２
　┣.slkファイル３
　┣.slkファイル４
　┣.slkファイル５
　┣.slkファイル６
　 ・
　 ・
　 ・
　┗ｓｌｋ結合データ.xls（マクロで.slkファイルを結合して出力）

回答No.2

mt2008 · ベストアンサー

恥ずかしいくらいの手抜き版で失礼

Sub Sample()
　　sPath = ThisWorkbook.Path
　　sMkFile = "slk結合データ.xls"

　　'新しい貼付用ブックを作成
　　Workbooks.Add xlWBATWorksheet
　　sNewbook = ActiveWorkbook.Name

　　'ループを回して全てのslkファイルを処理
　　sSlkFile = Dir(sPath & "\*.slk")
　　nRowTarget = 1 '貼付行
　　Do While sSlkFile <> ""
　　　　'見つかったslkファイルを開く
　　　　Workbooks.Open Filename:=sPath & "\" & sSlkFile

　　　　'slkファイルのシートをコピー
　　　　Set rUse = Sheets(1).UsedRange
　　　　nRow = rUse(rUse.Count).Row
　　　　Rows("1:" & nRow).Copy

　　　　'新しいブックに貼り付ける
　　　　Workbooks(sNewbook).Sheets(1).Cells(nRowTarget, 1).PasteSpecial
　　　　nRowTarget = nRowTarget + nRow

　　　　'slkファイルを閉じる
　　　　Application.CutCopyMode = False
　　　　Windows(sSlkFile).Close
　　　　sSlkFile = Dir()
　　Loop
　　'貼付用ブックを保存
　　Workbooks(sNewbook).SaveAs Filename:=sPath & "\" & sMkFile, FileFormat:=xlWorkbookNormal
　　Workbooks(sMkFile).Close
End Sub

お礼

遅くなってもうしわけありません。

無事にslkファイルを結合させることができました！
とても参考になりました。
ありがとうございました！

回答No.1

mt2008

補足願います。
やりたいのはどちらでしょう？
・.slkファイルを、１つのブックにまとめる（１つの.slkファイルが1シート）
・.slkファイルを、１つのシートにまとめる（1枚のシートに上から下へ全.slkファイルを貼りつける）

通常、前者かと思うのですが、質問を読むと後者と書いてあったので確認です。

補足

後者の「.slkファイルを１つのシートにまとめる（1枚のシートに上から下へ全.slkファイルを貼りつける）」になります。

お手数をおかけしてもうしわけありませんがよろしくおねがいします。