snapshot

とある理由で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