您所在位置：主题：以下代码总是出错,大师们知道咋整不?(关于EXCEL的)
海军
[专家分：5350] 发布于 2007-08-21 17:54:00
eole.Charts.Add && 添加一个图形对象，准备绘图
eole.ActiveChart.Location(1,"Sheet1") && 生成的图形内嵌于指定工作表。2：表示内嵌；1：表示图形单列不内嵌
[color=FF0000]上面这句就出错:OLE错误码0X800a03ec:未知的com状态代码.下面各句也常出错误,并且每次出错的地方和错误名称还不一定一样,各位大师知道是什么原因不?怎么调整呀?谢谢!![/color]
eole.ActiveChart.SetSourceData(xlsheet.Range(fanwei),2) && 指定绘图数据源。其中的2表示数据是按列摆放；2表示按行摆放
eole.ActiveChart.Location Where:=1
*-------------------------------------------------------------------------------------------------
eole.ActiveChart.ChartType = 51 &&54为3D柱图 73 为折线 && 非立体折线图
*-------------------------------------------------------------------------------------------------
eole.ActiveChart.HasLegend=.T. && 不显示图例
If Thisform.pageframe1.page3.check1.Value=1
eole.ActiveChart.ChartTitle.Characters.Text =Alltrim(Thisform.pageframe1.page2.combo1.DisplayValue)+"日经营情况统计图"
Else
eole.ActiveChart.ChartTitle.Characters.Text =Alltrim(Thisform.pageframe1.page3.combo1.DisplayValue)+Alltrim(Thisform.pageframe1.page2.combo1.DisplayValue)+"日经营情况统计图"
Endif
eole.ActiveChart.Location(1,"Sheet1") && 生成的图形内嵌于指定工作表。2：表示内嵌；1：表示图形单列不内嵌
[color=FF0000]上面这句就出错:OLE错误码0X800a03ec:未知的com状态代码.下面各句也常出错误,并且每次出错的地方和错误名称还不一定一样,各位大师知道是什么原因不?怎么调整呀?谢谢!![/color]
eole.ActiveChart.SetSourceData(xlsheet.Range(fanwei),2) && 指定绘图数据源。其中的2表示数据是按列摆放；2表示按行摆放
eole.ActiveChart.Location Where:=1
*-------------------------------------------------------------------------------------------------
eole.ActiveChart.ChartType = 51 &&54为3D柱图 73 为折线 && 非立体折线图
*-------------------------------------------------------------------------------------------------
eole.ActiveChart.HasLegend=.T. && 不显示图例
If Thisform.pageframe1.page3.check1.Value=1
eole.ActiveChart.ChartTitle.Characters.Text =Alltrim(Thisform.pageframe1.page2.combo1.DisplayValue)+"日经营情况统计图"
Else
eole.ActiveChart.ChartTitle.Characters.Text =Alltrim(Thisform.pageframe1.page3.combo1.DisplayValue)+Alltrim(Thisform.pageframe1.page2.combo1.DisplayValue)+"日经营情况统计图"
Endif
