客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
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
1 require "jcode"
2 $KCODE='gbk' 3 4 require "win32ole" 5 excel=WIN32OLE.new('excel.application') 6 7 8 excel.quit
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论