您的位置：程序门 -> vb -> 网络编程

vb 如何控制生产的excel中sheet数量，高手帮忙！！！

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

vb 如何控制生产的excel中sheet数量，高手帮忙！！！

发表于：2007-11-29 10:57:36 楼主

dim appexcel
'创建excel对象
set appexcel=createobject（"excel.application")
'新增一个工作簿
appexcel.workbooks.add
'取得工作簿
set olnewbook=appexcel.activeworkbook
set datasheet = olnewbook.sheets（"sheet1")
datasheet.activate
....
....

我想让生产的文档有2个sheets，但是系统默认是3个，怎么解决，谢谢了

发表于：2007-11-29 11:55:471楼得分:0

set datasheet = olnewbook.sheets（2)
datasheet.delete
set datasheet = olnewbook.sheets（3)
datasheet.delete

发表于：2007-11-29 11:58:152楼得分:0

顺序错了
set datasheet = olnewbook.sheets（3)
datasheet.delete
set datasheet = olnewbook.sheets（2)
datasheet.delete

发表于：2007-11-29 12:19:273楼得分:0

删除一个呀
加一句　datasheet.delete

发表于：2007-11-29 15:57:354楼得分:0

我试试

发表于：2007-11-29 16:03:125楼得分:0

不行啊不管用

发表于：2007-11-29 17:06:296楼得分:0

set datasheet = olnewbook.sheets（3)
datasheet.delete
olnewbook.save
set datasheet =nothing
olnewbook.close
set olnewbook = nothing
appexcel.quit
set appexcel=nothing

其他资讯