>Has anyone successfully created an Excel chart
>from VFP? I am wanting the data feed to a seperate
>sheet to feed the chart tab. No luck. Of course, the
>problem is with the last line.
>
>ox = crea('excel.application')
>ox.workbooks.open('c:\temp\test.xls')
>ox.workbooks.add()
>ox.charts.add()
>ox.activechart.charttype = 1
>ox.chartobjects(1).chart.chartwizard(ox.range(ox.sheets(1).cells
>(1,1),ox.sheets(1).cells(2,5)),-4100,4,1,0,1,1,"","","","")
>
>Test.xls simply contains data similar to the following.
>dep_date Amt
>01/01/98 12
>01/02/98 10
>01/03/98 15
>etc...
Hi Tom,
Try changing code to :
ox = crea('excel.application')
ox.workbooks.open('c:\temp\test.xls')
ox.visible = .t.
ox.charts.add()
with ox.worksheets(1)
ox.charts(1).chartwizard(.range(.cells(1,1),.cells(2,5)),-4100,4,1,0,1,1,"","","","")
endwith
BTW instead of test.xls you could set the cell values as :
with ox.worksheets(1)
.Cells(nRow,nCol).Value = somevalue
...
endwith
Cetin