|
*編號：A0037
*功能：發(fā)送一些示例數(shù)據(jù)到Excel并建立柱形統(tǒng)計圖
eole=Createobject("excel.application")
eole.workbooks.Add
XlSheet=eole.Sheets(1)
XlSheet.Cells(1,1).value="一車間"
XlSheet.Cells(1,2).value=100
XlSheet.Cells(2,1).value="二車間"
XlSheet.Cells(2,2).value=200
XlSheet.Cells(3,1).value="三車間"
XlSheet.Cells(3,2).value=150
XlSheet.Cells(4,1).value="四車間"
XlSheet.Cells(4,2).value=223
XlSheet.Cells(5,1).value="五車間"
XlSheet.Cells(5,2).value=152
fanwei="A1:B5"
XlSheet.Range(fanwei).Select
eole.charts.Add
eole.ActiveChart.Location(2,"sheet1")
eole.ActiveChart.SetSourceDate(XlSheet.Range(fanwei),2)
eole.ActiveChart.ChartType=51
eole.ActiveChart.HasLegend=.T.
eole.ActiveSheet.Chartobject("圖表1").Active
eole.ActiveChart.ChartArea.Select
eole.ActiveSheet.Shapes("圖表1").IncrementLeft(-140.25)
eole.ActiveSheet.Shapes("圖表1").IncrementTop(-2.25)
eole.ActiveSheet.Shapes("圖表1").Scalewidth(1.2,0,0)
eole.ActiveSheet.Shapes("圖表1").ScaleHeight(1,0,0)
with .eloe.ActiveChart
.HasTitle=.T.
.ChartTitle.Chartacters.Text='各生產(chǎn)車間產(chǎn)量柱形圖'
.Axes(1).HasTitle=.T.
.Axes(1).AxisTitle.Chartacters.Text='車間'
.Axes(2).HasTitle=.T.
.Axes(2).AxisTitle.Chartacters.Text='產(chǎn)量'
endwith
eole.DisplayAlerts=.F.
fname="c:\abc.xls"
eole.Activeworkbooks.SaveAs(fname)
eole.quit
Release eole,XlSheet
eole=Createobject("Excel.application")
eole.workbooks.Open(fname)
eole.Visible=.T.
rele eole |
|
|
