1require 'win32ole' 2 3application = WIN32OLE.new('Excel.Application') 4 5application.visible = TRUE 6workbook = application.Workbooks.Add(); 7worksheet = workbook.Worksheets(1); 8 9=begin 10worksheet.Range("A1:D1").value = ["North","South","East","West"]; 11worksheet.Range("A2:B2").value = [5.2, 10]; 12 13worksheet.Range("C2").value = 8; 14worksheet.Range("D2").value = 20; 15=end 16 17worksheet.Range("A1:B2").value = [["North","South"], 18 [5.2, 10]]; 19 20vals = WIN32OLE_VARIANT.new([["East","West"], 21 [8, 20]], 22 WIN32OLE::VARIANT::VT_ARRAY) 23worksheet.Range("C1:D2").value = vals 24 25range = worksheet.Range("A1:D2"); 26range.Select 27chart = workbook.Charts.Add; 28 29workbook.saved = TRUE; 30sleep 0.5 31application.ActiveWorkbook.Close(0); 32application.Quit(); 33 34