如何用rails 导出Excel 文件？

Question

如何用rails 导出Excel 文件？ 不知道有没有人用过什么plugin，介绍下

Answer 1

[size=x-large]首先[/size]，只是想把一些数据生成ｅｘｃｅｌ文件的话，最简单的办法，应该考虑生成ＣＳＶ，
因为，Ｒｕｂｙ支持比较好，而且，你用ｅｘｃｅｌ可以直接打开。当然，前提是你的ｅｘｃｅｌ没有特别复杂的表结构，样式渲染等

样例如下：
[code="ruby"]outfile = File.open('csvout', 'wb')

CSV::Writer.generate(outfile) do |csv|

csv << ['c1', nil, '', '"', "\r\n", 'c2']

...

end

outfile.close [/code]

[size=x-large]其次[/size]，一般用的话可以考虑ｓｐｒｅａｄｓｈｅｅｔ。就像一楼的老大提供的连接所说，那个例子很好，只是适合你的读取复杂的适合参考。如果，你用不到那么复杂，建议你看下面的说明。

生成excel文件
如果，你想生成一个excel文件，那么首先，就像写文件一个先加载spreadsheet类库，然后，指定编码接着，就可以创建一个Workbook了
[code="ruby"] book = Spreadsheet::Workbook.new[/code]
在workbook基础上创建Worksheet表单
[code="ruby"]sheet1 = book.create_worksheet[/code]
当然，你也可以用如下方式创建表单：
[code="ruby"]sheet2 = book.create_worksheet :name => 'My Second Worksheet'
sheet1.name = 'My First Worksheet'[/code]
那么，这时我们可以采用如下方式加载数据到表单Worksheet#[]=,
Worksheet#update_row, 或者直接给一个指定单元格复制
[code="ruby"]sheet1.row(0).concat %w{Name Country Acknowlegement}
sheet1[1,0] = 'Japan'
row = sheet1.row(1)
row.push 'Creator of Ruby'
row.unshift 'Yukihiro Matsumoto'
sheet1.row(2).replace [ 'Daniel J. Berger', 'U.S.A.',
'Author of original code for Spreadsheet::Excel' ]
sheet1.row(3).push 'Charles Lowe', 'Author of the ruby-ole Library'
sheet1.row(3).insert 1, 'Unknown'
sheet1.update_row 4, 'Hannes Wyss', 'Switzerland', 'Author'[/code]
对于格式的处理，可以如下：
[code="ruby"] sheet1.row(0).height = 18
format = Spreadsheet::Format.new :color => :blue,
:weight => :bold,
:size => 18
sheet1.row(0).default_format = format
bold = Spreadsheet::Format.new :weight => :bold
4.times do |x| sheet1.row(x + 1).set_format(0, bold) end[/code]
最后，保存excel文件
[code="ruby"] book.write '/path/to/output/excel-file.xls'[/code]

[size=x-large]最后[/size]，如果是在ｗｉｎｄｏｗｓ平台下的话，也可以考虑ＷＩＮ２３ＯＬＥ,处理ｗｉｎｄｏｗｓ下的转换很强大
[code="ruby"]require 'win23ole'

    application = WIN32OLE.new('Excel.Application')    
    worksheet    

=application.Workbooks.Open(excelFileName).Worksheets(workSheetName)

worksheet.Activate

    contLoop = true           # Dummy counter for the loop    

    while contLoop do    
      colVal = worksheet.Cells(row, column).Value    

      if (colVal) then    
        # 如果这个字段非空，则表示这行有值   
        # 在这里处理读取   
        do processing ....    
      else    
        # 这里表明结束。   
        # End the loop    
        contLoop = false    
      end    
      # go to the next Row    
      row +=  1    
    end    


    # we are done    
    application.Workbooks.Close   [/code]