|
require 'win32ole'
knowledge_profit=gets
excel=WIN32OLE.new("excel.application")
excel['Visible']=TRUE
workbook=excel.workbooks.add()
excel.Range("a1")['Value']= 1
excel.Range("a2")['Value']= 2
excel.Range("a3")['Value']= 3
excel.Range("a4")['Value']= 4
excel.Range("a1:a4").select()
excel.Range("b1")['Value']= 1
excel.Range("b2")['Value']= 2
excel.Range("b3")['Value']= 3
excel.Range("b4")['Value']= 4
excel.Range("b1:b4").select()
excelchart1=workbook.charts.add()
excelchart2=workbook.charts.add()
excelchart1['Type']=-4099
excelchart2['Type']=-4099
workbook.SaveAs "Graph.xls"
excel.Quit
# chart constants specified below:
# xlRadar = -4151
# xlXYScatter = -4169
# xlCombination = -4111
# xl3DArea = -4098
# xl3DBar = -4099
# xl3DColumn = -4100
# xl3DLine = -4101
# xl3DPie = -4102
# xl3DSurface = -4103
# xlDoughnut = -4120
|