[snippet] WIN32OLE Excel (ruby)

gistfile1.rb

#!/usr/bin/ruby
# -*- coding: utf-8 -*-

require 'win32ole'

WIN32OLE.codepage = WIN32OLE::CP_UTF8

$fso = WIN32OLE.new('Scripting.FileSystemObject')
$xl = WIN32OLE.new('Excel.Application')

at_exit {
  $xl.Quit
}

def get_absolute_path filename
  return $fso.GetAbsolutePathName(filename)
end

def dump_excel filename
  path = get_absolute_path(filename)
  book = $xl.Workbooks.Open(path, { 'ReadOnly' => true })
  begin
    count = book.Worksheets.Count
    puts "#{filename},#{count}"
    $stdout.flush
  ensure
    book.Saved = true
    book.Close
  end
end

ARGV.each do |filename|
  dump_excel(filename)
end