カレントディレクトリ配下のExcelを全て印刷するRubyスクリプト

print_excel.rb

# -*- coding: cp932 -*-  
require 'find'
require 'win32ole'

def getAbsolutePath filename
  fso = WIN32OLE.new('Scripting.FileSystemObject')
  return fso.GetAbsolutePathName(filename)
end

xl = WIN32OLE.new('Excel.Application')
xl.DisplayAlerts = false
xl.Visible = true

Find.find('.') do |file| 
  next unless  file.match(/\.xlsx?\z/) 
  book = xl.Workbooks.Open(getAbsolutePath(file))
  book.Worksheets.select
  book.PrintOut
  book.Close
end