各位大人,帮帮小弟我吧

qclzsh 2004-09-13 08:49:23
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 不认识阿,我真的不知道该怎么办了,。谢谢!!
...全文
75 点赞 收藏 8
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
wsmall1 2004-09-14
网上很多vbs访问excel的代码,去找找吧
回复
Ronanljy 2004-09-14
所属社区: Java JSP/Servlet/JavaBean !!!!!!!!!!!!!!!!!!!!!!!
回复
yingshis 2004-09-14
up
回复
梦想家烟灰 2004-09-14
take it easy. :-)
回复
bluesky35 2004-09-14
如果改成vbscript的话,定义的地方要改.
回复
BillyW 2004-09-14
当然了老兄,这是vb6的脚本。怎么能放到vbscript里用呢?

建议你到vbscript区去搜索一些相关excel访问操作的代码。这样改不行!
回复
xiangbo520 2004-09-14
你这个帖子应该发到VB版块里面去啊!!!
回复
wangnewton 2004-09-14
gz
帮你顶
回复
相关推荐
发帖
Web 开发
创建于2007-09-28

8.0w+

社区成员

Java Web 开发
申请成为版主
帖子事件
创建了帖子
2004-09-13 08:49
社区公告
暂无公告