以下是测试代码:
Set o_EXL = CreateObject("Excel.application")
Set o_EBKs = o_EXL.workbooks
If Dir(p文件名) <> "" Then
o_EXL.Visible = False
o_EXL.displayalerts = False
Set oeb = o_EBKs.Open(p文件名)
Set osheets = oeb.worksheets
n = osheets.Count
s = osheets(1).Name
End If
o_EBKs.Close
o_EXL.Quit我想要的是操作excel在后台运行
1.当运行时没有正在操作的excel文件时是可以的
2.当运行时有正在操作的其它excel文件时就有问题了,当这段代码推出时
在excel里这段代码操作的文件并没有关闭,而这个文件不想让看到,如何解决呢?
Set o_EXL = CreateObject("Excel.application")
Set o_EBKs = o_EXL.workbooks
If Dir(p文件名) <> "" Then
o_EXL.Visible = False
o_EXL.displayalerts = False
Set oeb = o_EBKs.Open(p文件名)
Set osheets = oeb.worksheets
n = osheets.Count
s = osheets(1).Name
End If
o_EBKs.Close
o_EXL.Quit我想要的是操作excel在后台运行
1.当运行时没有正在操作的excel文件时是可以的
2.当运行时有正在操作的其它excel文件时就有问题了,当这段代码推出时
在excel里这段代码操作的文件并没有关闭,而这个文件不想让看到,如何解决呢?
解决方案 »
- vb format函数问题
- 谁有碰上这样的问题?vb6.0编译到一半,就卡住不动了。过了一会儿,就出现死机,最后电脑干脆就自动重启了。
- 哪里有VB自学材料下载呢
- 高手问题:VB怎么继承其它COM组件的接口??
- 100分!整个互连网上都没有答案的问题:WebBrower控件如何使用XP主题?
- 有关水晶报表的更改数据库名称后的问题
- 关于MSComm 控件的CommEvent 属性的判断与延时
- 怎么样在设定在EXCEL中,单元格的形式为货币,如100,000.00
- 数据库访问失败!
- 如何将区域定义为变量,然后再调用这些变量?
- 请问各位高手vb如何将查询结果输入水晶报表,然后实现打印?
- 请教Print写小于零的数时,如何控制在小数点前加零,谢了!
我把
o_EBKs.Close
o_EXL.Quit
放错地方了
放在类销毁函数中似乎不行,马上退出就可以了