まだまだエクセルファイルを grep する（５）: つらつらぐさ

まだまだエクセルファイルを grep する（５）

　あらためてるびまを読んでいたら、自分が必要としていた情報はすでに出ていたということにあらためて気づいた。いかに読んでいなかったかが露呈。反省。

　大体基本的に win32ole を使うということの意味を理解していなかったのではないかといまさらながら思ったりも。

　で、とりあえずそれを参考にして xlsgrep.rb を変更してみる。
　こんな感じ。


require 'win32ole'

$KCODE = "SJIS"

def usage

  print "usage: ruby xlsgrep.rb $lt;検索文字列> files...\n"

  exit(1)

end

usage if ARGV.size < 2

pat = Regexp.new(ARGV.shift, Regexp::IGNORECASE, "SJIS")

module EXCEL_CONST

end

excel = WIN32OLE.new('Excel.Application')

excel.visible = true if $DEBUG

WIN32OLE.const_load excel, EXCEL_CONST

ARGV.each do |xls|

  xls = File.expand_path(xls).gsub(/\//s, "\\")

  begin

  print "file:#{xls}\n"

  book = excel.workbooks.open xls

##

  book.Worksheets.each do |sheet|

    sheet.UsedRange.Rows.each do |row|

      record = []

      row.Columns.each do |cell|

        record << cell.Value

      end

      

      if record.join(",") =~ pat

        print "sheet:#{sheet.name}"

        puts record.join(",")

      end

    end

  end

  book.saved = true

  book.close

  end

end

excel.quit