职业砍价师:急~VB中生成Excel表时出现的问题!

来源:百度文库 编辑:高校问答 时间:2024/05/06 04:06:21
在VB中打开一个有数据的Excel文件,在按钮单击事件中让其在原Excel文件中生成Excel图表。

但生成图标后任务管理器中总有一个Excel.EXE存在,导致下次按钮单击时提示有错误。

程序如下:
Set Exl = GetObject("", "Excel.Application")
Exl.Workbooks.Open App.Path & "\临时图表.xls"

Exl.Charts.Add
Set VBchart = Exl.ActiveChart
VBchart.ChartType = xlLineMarkers
VBchart.SetSourceData Source:=Sheets("Sheet1").Range("A1:D4"), PlotBy:=xlColumns
VBchart.Location Where:=xlLocationAsNewSheet

Exl.ActiveWorkbook.Close
Exl.Quit
Set Exl = Nothing
Set VBchart = Nothing
曾试过在将Exl.ActiveWorkbook.Close改为Exl.Workbooks("临时图表.xls").Close还是不行
程序急用~
请高手指教
谢谢
我调试发现就是VBchart.SetSourceData Source:=Sheets("Sheet1").Range("A1:D4")这句确定生成图标的数据范围的话的问题。可以把他用别的语句代替吗?

如我下图所示的就是了
第一行里输入你想要的表头就行了