ruby操作excel的几段代码

 1 #require "spreadsheet"
 2 require "jcode"
 3 $KCODE='gbk'
 4 
 5 #处理excel
 6 require "win32ole"
 7 excel=WIN32OLE.new('excel.Application')
 8 book=excel.Workbooks.open("E:\\与大奖有约\\22选5_0325.xls")
 9 sheet=book.Worksheets(1)
10 sheet.select
11 #excel.visible=true
12 
13 #读取数据
14 puts sheet.Range('a12')['value'].to_s
15 puts sheet.Range('b12')['value']
16 
17 #读入二维表
18 data=sheet.Range("a1:C12")['VALUE']
19 p data
20 
21 #找到a列 第一个空值
22 line=1
23 while sheet.Range("a#{line}")['value']!=nil
24   line=line+1
25 end
26 
27 puts line-1
28 #puts sheet.Range("a#{line}")['value']
29 
30 #将第一列的值  读入到  一个数组中
31 line='1'
32 data=[]
33 while sheet.Range("a#{line}")['value']
34   data<<sheet.Range("a#{line}:f#{line}")['value']
35   line.succ!
36 end
37 
38 p data
39 
40 
41 #将数据写入到excel表格中
42 sheet.Range('h2').value=Time.now.strftime '%/%m/%y'#写入单个值——日期
43 sheet.range('h1:j1').value=['测试','25','result']#写入一个数组
44 
45 
46 
47 #运行已经定义的宏"Macro2"
48 excel.run('Macro2')
49 
50 #设置背景色
51 sheet.range('a3:f5').interior['ColorIndex']=36#设置成暗黄色
52 sheet.range('a3:f3').interior['colorindex']=-4142#将背景色设置成无色
53 #-4142是常量
54 
55 
56 
57 book.Close(1)#保存  工作簿
58 excel.Quit#结束会话

 1 require "jcode"
 2 $KCODE='gbk'
 3 require "win32ole"
 4 excel=WIN32OLE.new("excel.Application")
 5 excel.visible=true
 6 book1=excel.workbooks.add
 7 sheet1=book1.worksheets(1)
 8 sheet1.select
 9 sheet1.range('a1').value=100
10 sheet1.range('a2').value='这是一个中文字符串'
11 book1.saveas("e:\\1.xls")
12 book1.close
13 excel.quit

 1 require "jcode"
 2 $KCODE='gbk'
 3 
 4 require "win32ole"
 5 excel=WIN32OLE.new('excel.application')
 6 
 7 #book1=excel.workbooks.add#新建一个待操作的文件
 8 #book1.saveas 'e:\\book1.xls'#保存新文件
 9 
10 #打开待操作文件
11 book1=excel.Workbooks.open('e:\\book1.xls')
12 
13 #sheet1=book1.open('sheet1')
14 #sheet1.select
15 
16 #下面的操作都是一样的结果
17 book1.worksheets('sheet1').range('a1').value='第一个'
18 
19 excel.worksheets('sheet1').range('a2').value='第二个'
20 
21 excel.activeworkbook.activesheet.range('a3').value='第三个'
22 
23 excel.activesheet.range('a4').value='第四个'
24 
25 excel.worksheets('sheet3').select
26 excel.range('a5:a1').value="第五个"
27 
28 #excel可以操作所有的 属性，默认为“当前工作簿/工作表"
29 
30 
31 
32 #book1.close
33 excel.quit

 1 require "jcode"
 2 $KCODE='gbk'
 3 #对单元格的操作
 4 require "win32ole"
 5 excel=WIN32OLE.new 'excel.application'
 6 book1=excel.Workbooks.open('e:\\book1.xls')
 7 
 8 sheet1=book1.Worksheets(1)#第一个worksheet表
 9 p sheet1.range('a1').text
10 
11 p sheet1.range('a1','c3').value
12 
13 #puts sheet1.range('a:a').value
14 
15 
16 #获取单元格的值
17 puts sheet1.range('a2').text
18 puts sheet1.range('a2').value
19 
20 #对单元格设置值
21 sheet1.range('h1').value=1.23456
22 sheet1.range('h2').value='1.23456'
23 a=sheet1.range('h1').value
24 b=sheet1.range('h2').value
25 puts "a等于b" if a==b
26 
27 #迭代访问
28 sheet1.range('a1:a10').each{|cell| puts cell.value
29   cell.value='100'
30 }
31 
32 #使用cell()
33 sheet1.range("b3:c7").rows.each{
34   |r|
35   r.cells(1,1).value='dd'
36 }
37 
38 book1.close
39 excel.quit

 require "jcode"
2 $KCODE='gbk'
3 
4 require "win32ole"
5 excel=WIN32OLE.new('excel.application')
6 
7 
8 excel.quit