doneykoo [Ouditian]

使用ruby來操作excel文件首先需要在腳本里包含以下語句
require 'win32ole'

把win32ole包含進來后,就可以通過和windows下的excel api進行交互來對excel文件進行讀寫了.

打開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)
# 或
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
workbook = excel.workbooks.add
workbook.saveas('c:\examples\spreadsheet1.xls')
workbook.close

操作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}