とある理由でCSVからエクセルにデータを貼り付けるのに、CSVファイルがたくさんあって面倒なので、RubyでCSVをひらいてカンマ区切りの処理をして、win32oleで開いたエクセルのセルに1個ずつ貼りつけたところ、泣きそうなくらい遅くて悲しかったので、もっといい方法が無いか少し調べてみた。で、ここに辿りついて参考にさせていただいた。
結論的には、クリップボード経由で一括貼付けするのが超高速。
↓使ったコード。100×100=10000セルに値を貼り付けるだけ。
require 'win32ole'
require 'win32/clipboard'
# include Win32 # なくても動く?
require 'benchmark'
def getAbsolutePath filename
fso = WIN32OLE.new('Scripting.FileSystemObject')
return fso.GetAbsolutePathName(filename)
end
filename = getAbsolutePath("test.xls")
xl = WIN32OLE.new('Excel.Application')
book = xl.Workbooks.Open(filename)
xl.Visible = true
x=[]
1.upto(100) {|r|
x[r-1] = []
1.upto(100) {|c|
x[r-1] << r*c
}
}
begin
book.Worksheets("sheet1").select
puts Benchmark::CAPTION
puts Benchmark.measure{
Win32::Clipboard.set_data((x.map{|a| a.join("\t")}.join("\r\n")))
book.Worksheets("sheet1").paste('Destination' => book.Worksheets("sheet1").Range("A1"))
Win32::Clipboard.empty
}
book.Worksheets("sheet2").select
puts Benchmark::CAPTION
puts Benchmark.measure{
1.upto(100) {|r|
1.upto(100) {|c|
book.Worksheets("sheet2").Cells(r,c).Value = x[r-1][c-1]
}
}
}
ensure
book.Save
book.Close
xl.Quit
end
これを実行した結果が↓。
C:\work\hoge\win32ole_xls>ruby test_xls.rb
user system total real
0.000000 0.000000 0.000000 ( 0.053707)
user system total real
2.969000 1.906000 4.875000 ( 36.125617)
はじめはクリップボード経由、次はセル一つ一つコピー。realのところの秒数が体感速度と思うけど、クリップボード経由はほんの一瞬。セル一つ一つは30秒くらい。クリップボード経由のほうがはるかに速い。
ExcelのAPIを呼ぶ毎のオーバーヘッドがすごいのだろうか。
余談
win32/clipboardを使えるようにしたときのメモ。こちらもかなり簡単。VC++の環境設定がされたコマンドプロンプトで↓を実行するだけ。
> gem install win32-clipboard