批量转换excel成csv格式

shijiang1130

1. require 'win32ole'
   
2. 
   
3. module E2csv
   
4.   def E2csv.firecsv(p)
   
5.     excel = WIN32OLE.new('Excel.Application')
   
6.     excel.visible = false
   
7.     excel.DisplayAlerts = false
   
8.     xlCSV = 6
   
9.     book = excel.Workbooks.Open(p)
   
10.     sheetnum = book.Worksheets.Count
    
11.     p = File.basename(p , ".xls")
    
12.       while sheetnum > 0 do
    
13.       worksheet = book.WorkSheets(sheetnum)
    
14.       filename = "c:\\test\\" + p + "_" + sheetnum.to_s + '.csv'
    
15.       worksheet.SaveAs(filename,xlCSV)
    
16.       sheetnum = sheetnum - 1
    
17.     end
    
18.   excel.ActiveWorkbook.Close
    
19.   excel.Quit()
    
20.   end
    
21. end
    
22. 
    
23. mydir = ARGV[0]
    
24. d = Dir.open(mydir)
    
25. for f in d
    
26.    case f
    
27.    when /^\./
    
28.    else
    
29.             file = mydir + '\\' + f
    
30.             E2csv.firecsv(file)
    
31.    end
    
32. end

复制代码

OS: windows xp sp3
Ruby: 1.9.2.p0

ruby els2csv.rb c:\test

shijiang1130

xlCSV=6
xlCSVMac=22
xlCSVMSDOS=24
xlCSVWindows=23
xlCurrentPlatformText=-4158
xlExcel9795=43
xlTextMSDOS=21
xlTextPrinter=36
xlTextWindows=20

2gua

不错，以资鼓励。