各位大人，帮帮小弟我吧

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 不认识阿，我真的不知道该怎么办了，。谢谢！！