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