:-): 朝ッ, 仕事, exerb で win32ole, リッジレーサー7

2009-08-06 :-)

_ 朝ッ

0520 起床

_ 仕事

0830 出勤

1400 客先

1500 自社

うぬ

_ [win32ole][exerb][ruby]exerb で win32ole

cygwin の ruby でセットアップした exerb を使うと動作しなくて( exe を実行した直後に刺さる ) mswin32 の ruby でセットアップした exerb を使うと動作する。なぞだ

コードはここのそのまま → Rubyist Magazine - Win32OLE 活用法【第 2 回】 Excel

require 'win32ole'

def getAbsolutePath filename
  fso = WIN32OLE.new('Scripting.FileSystemObject')
  return fso.GetAbsolutePathName(filename)
end
filename = getAbsolutePath("sample1.xls")
xl = WIN32OLE.new('Excel.Application')

book = xl.Workbooks.Open(filename)
begin
  book.Worksheets.each do |sheet|
    sheet.UsedRange.Rows.each do |row|
      record = []
      row.Columns.each do |cell|
        record << cell.Value
      end
      puts record.join(",")
    end
  end
ensure
  book.Close
  xl.Quit
end

cygwin ruby の exerb

% mkexy ./excel1.rb && exerb -v excel1.exy && ./excel1.exe
発生日,名称,マグニチュード,死者・不明者,死者の有無
1923/09/01 00:00:00,関東大震災,7.9,142807.0,true
1994/10/04 00:00:00,北海道東方沖地震,8.1,0.0,false
1995/01/17 00:00:00,阪神淡路大震災,7.2,6418.0,true
2004/10/23 00:00:00,新潟県中越地震,6.8,37.0,true


Recipe File  : excel1.exy
Core File    : /usr/share/exerb/ruby187c.exc
Output File  : /cygdrive/c/home/miwa/work/ruby/exerb/excel1.exe

←ここから帰ってこない

mswin32 ruby の exerb

> mkexy ./excel1.rb && exerb -v excel1.exy && excel1.exe
発生日,名称,マグニチュード,死者・不明者,死者の有無
1923/09/01 00:00:00,関東大震災,7.9,142807.0,true
1994/10/04 00:00:00,北海道東方沖地震,8.1,0.0,false
1995/01/17 00:00:00,阪神淡路大震災,7.2,6418.0,true
2004/10/23 00:00:00,新潟県中越地震,6.8,37.0,true


Recipe File  : excel1.exy
Core File    : C:/ruby/share/exerb/ruby187c.exc
Output File  : C:/home/miwa/work/ruby/exerb/excel1.exe
発生日,名称,マグニチュード,死者・不明者,死者の有無
1923/09/01 00:00:00,関東大震災,7.9,142807.0,true
1994/10/04 00:00:00,北海道東方沖地震,8.1,0.0,false
1995/01/17 00:00:00,阪神淡路大震災,7.2,6418.0,true
2004/10/23 00:00:00,新潟県中越地震,6.8,37.0,true

同じ事例のひと → 新・趣味とその近況、あるいはそれ以外の日常(2009-04-30)

どうでもいいが