各位大人，帮帮小弟我吧

[qclzsh]

Dim objExcelApp, objExcelBook, objExcelSheets, objExcelSheet
Set objExcelApp = CreateObject("Excel.Application")
Set objExcelBook = objExcelApp.Workbooks.Open("c:\book1.xls")
Set objExcelSheets = objExcelBook.Worksheets

Set objExcelSheets = objExcelBook.Sheets(1)

objExcelSheets.Select

objExcelBook.Charts.Add
{ objExcelBook.ActiveChart.ChartType = xlColumnStacked
objExcelBook.ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:I4"),PlotBy:=xlRows
objExcelBook.ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
With objExcelBook.ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
}

objExcelApp.Quit

Set objExcelSheet = Nothing
Set objExcelBook = Nothing
Set objExcelApp = Nothing

这段代码的目的是在excel 上生成一个图表。以上代码在VB中运行一切正常。
我加到vbscript 中，总是在我打“{}”之间有错误。是不是因为其中的例如“xlColumnStacked”，

“xlRows”，“xlLocationAsObject”等等
vbscript 不认识阿，我真的不知道该怎么办了，。谢谢！！

[wangnewton]

gz
帮你顶

[xiangbo520]

你这个帖子应该发到VB版块里面去啊！！！

[BillyW]

当然了老兄，这是vb6的脚本。怎么能放到vbscript里用呢？

建议你到vbscript区去搜索一些相关excel访问操作的代码。这样改不行！

[bluesky35]

如果改成vbscript的话,定义的地方要改.

[梦想家起飞]

take it easy. :-)

[yingshis]

up

[Ronanljy]

所属社区： Java JSP/Servlet/JavaBean !!!!!!!!!!!!!!!!!!!!!!!

[wsmall1]

网上很多vbs访问excel的代码，去找找吧