require 'excel'
require 'file-win32'
require 'getopts'

class WorkbookJoiner
  def initialize(workbook)
	@workbook = workbook
	@uselessSheetCount = workbook.sheets.count

	while @uselessSheetCount > 1 
	  @workbook.sheets(@uselessSheetCount).delete
	  @uselessSheetCount -= 1
	end
  end

  def addWorkbook(workbookToAdd)
	sheetsToAdd = workbookToAdd.sheets
	sheetCountToAdd = sheetsToAdd.count
	lastSheet = @workbook.sheets(@workbook.sheets.count)
	for i in 1..sheetCountToAdd
	  sheetsToAdd.item(i).copy({'After'=>lastSheet})
	  lastSheet = @workbook.sheets(@workbook.sheets.count)
	end
	if @uselessSheetCount > 0 then
	  @workbook.sheets(@uselessSheetCount).delete
	  @uselessSheetCount -= 1
	end
  end
end

if getopts(nil, "o:") == nil then
  raise <<XXX 
オプションの種類
  -o [出力先ファイル名]
XXX
end

outBookName = "xlsjoin.xls"
if $OPT_o then
  outBookName = $OPT_o
end
outBookName = FileSystemObject.instance.getAbsolutePathName(outBookName)

Excel.runDuring(false) do |excel|
  outBook = excel.workbooks.add
  joiner = WorkbookJoiner.new(outBook)
  ARGV.each do |bookName|
	bookName = FileSystemObject.instance.getAbsolutePathName(bookName)
	book = excel.workbooks.open({'FileName'=>bookName,'ReadOnly'=>true})
	joiner.addWorkbook(book)
  end
  outBook.worksheets(1).select
  outBook.saveAs({'Filename'=>outBookName})
end