发送一些示例数据到Excel并建立柱形统计图

*编号：A0037

*功能：发送一些示例数据到Excel并建立柱形统计图

 

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='各生产车间产量柱形图'

      .Axes(1).HasTitle=.T.

      .Axes(1).AxisTitle.Chartacters.Text='车间'

      .Axes(2).HasTitle=.T.

      .Axes(2).AxisTitle.Chartacters.Text='产量'

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