美文网首页
Ruby操作Excel【转】

Ruby操作Excel【转】

作者: 难道_fa74 | 来源:发表于2017-08-13 16:18 被阅读0次

    Ruby操作excel文件首先需要在脚本里包含以下语句

    require 'win32ole'
    

    打开excel文件,对其中的sheet进行访问:

    excel = WIN32OLE::new('excel.Application')
    workbook = excel.Workbooks.Open('c:\examples\spreadsheet.xls')
    worksheet = workbook.Worksheets(1) #定位到第一个sheet
    worksheet.Select
    

    读取数据:

    worksheet.Range('a12')['Value']  #读取a12中的数据
    data = worksheet.Range('a1:c12')['Value'] #将数据读入到一个二维表
    

    找到第一处a列的值为空值

    line = 1
    while worksheet.Range("a#{line}")['Value']
       line=line+1
    end #line的值为第一处空白行的行数
    

    将第一列的值读入到一个数组中

    line = '1'
    data = []
    while worksheet.Range("a#{line}")['Value']
       data << worksheet.Range("a#{line}:d#{line}")['Value']
       line.succ!
    end
    

    将数据写入到excel表格中

    worksheet.Range('e2')['Value'] = Time.now.strftime '%d/%m/%Y' #单个值
    worksheet.Range('a5:c5')['Value'] = ['Test', '25', 'result']  #将一个数组写入
    

    调用宏定义

    excel.Run('SortByNumber')
    

    设置背景色

    worksheet.Range('a3:f5').Interior['ColorIndex'] = 36 #pale yellow
    

    将背景色恢复成无色

    worksheet.Range('a3:f5').Interior['ColorIndex'] = -4142 # XlColorIndexNone constant
    

    使用Excel constant 将背景色恢复成无色

    worksheet.Range('a3:f5').Interior['ColorIndex'] = ExcelConst::XlColorIndexNone
    

    保存

    workbook.Close(1)  // 0 不保存推出,1 保存退出
    

    workbook.SaveAs 'myfile.xls' //默认路径是系统定义的"我的文档"
    

    结束会话

    excel.Quit
    

    一些相对完整的代码片段

    创建一个excel文件并保存

    require 'win32ole'
    excel = WIN32OLE.new("excel.application")
    excel.visible = true # in case you want to see what happens
    excel.DisplayAlerts = false # 屏蔽弹出保存提示框
    workbook = excel.workbooks.add
    workbook.saveas('c:\examples\spreadsheet1.xls')
    workbook.close
    workbook.saved = true
    excel.ActiveWorkbook.Close(1)
    excel.Quit()
    

    操作excel文件的几个重要元素

    Excel => workbook => worksheet => range(cell)
    我理解的是excel为类名,workbook为一个具体的(excel文件)实例,创建好实例后,worksheet是实例(workbook,工作簿)中的一个工作表,然后可
    以对工作表中的每个单元格(range(cell))进行具体的读写------------------按照这样操作肯定没有错,不过下面的这些语句又让我有些疑惑
    excel.workbooks("Mappe1").worksheets("Tabelle1").range("a1").value #读取名为Mappe1的excel文件中工作表名为Tabelle1的a1单元格中的值
    excel.worksheets("Tabelle1").range("a1").value #作用同第一条语句
    excel.activeworkbook.activesheet.range("a1").value #作用同第一条语句
    excel.activesheet.range("a1").value #作用同第一条语句
    excel.range("a1").value #作用同第一条语句

    excel可以直接操作所有的属性,默认为当前活跃的工作簿/工作表

    对单元格的操作:

    某个单元格: sheet.range("a1")
    
    a1到c3的值:   sheet.range("a1", "c3")  或 sheet.range("a1:c3")
    
    第一列:sheet.range("a:a")
    
    第三行:sheet.range("3:3")
    

    获得单元格的值:

    range.text  #读取值,返回为字符串格式,如果单元格内为数字,有可能会被截断小数点后的位数
    sheet.range("a1").text  
    
    range.value  #读取值,数字不会截断
    sheet.range("a1").value      
    

    对单元格设置值

    sheet.range("a1").value = 1.2345
    或
    sheet.range("a1").value = '1.2345'
    

    迭代访问:

    sheet.range("a1:a10").each{|cell|puts cell.value}
    
    如果范围是一个矩形,则会按行循环迭代访问
    sheet.range("a1:b5").each{|cell|puts cell.value}
    
    block迭代,并打印出每行的第一个值
    sheet.range("b3:c7").rows.each{|r|puts r.cells(1,1).value}
    

    2、Ruby完美结束excel应用程序进程

    在关闭excel之后,使用ole_free将所有的win对象释放
    
    [cell, worksheet, worksheets, workbook, workbooks, xls_app].each {|obj| obj.ole_free}
    

    结束excel程序

    xls_app.Quit
    

    调用ole_free方法将创建的所有win32对象回收释放,修改后代码如下:

    require 'win32ole'
    
    dir = 'd:\temp\test_excel.xls'
    unless File.exist?(dir)
    file = File.new(dir, 'w+')
    file.close
    end
    

    创建excel应用程序对象

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

    打开需要操作的excel文档

    workbooks = excel.Workbooks
    workbook  = workbooks.Open(dir)
    

    初始化参数

    worksheets = workbook.Worksheets
    worksheet  = worksheets.item(1)
    
    begin
    cell = worksheet.cells(1, 1)
    cell.value = 'hello world!'
    
    rescue Exception
    puts $!
    ensure
    # 屏蔽弹出保存提示框
    xls_app.DisplayAlerts = false
    # 保存workbook
    workbook.Save
    # 关闭workbook
    workbook.Close
    # 结束excel应用程序
    xls_app.Quit
    # 释放com对象
    [cell, worksheet, worksheets, workbook, workbooks, xls_app].each {|obj| obj.ole_free}
    end
    puts "此时已调用方法结束excel应用程序"-> 打开任务管理器查看进程,发现此时excel 进程已结束
    sleep 30
    puts "hello world!"

    相关文章

      网友评论

          本文标题:Ruby操作Excel【转】

          本文链接:https://www.haomeiwen.com/subject/pflerxtx.html