vb 操作excel程序 ， 第一次运行正常，可以生成报表 但是第二次运行，就报错了 求原因，求解决方式
DimxlAppAsObjectDimxlBookAsObjectDimxlSheetAsObjectSetxlApp=CreateObject("Excel.Appli...
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(strFile)
Set xlSheet = xlBook.Worksheets("sheet1")
........ '对excel的操作
xlBook.Save
Set xlSheet = Nothing
‘xlBook.Close (True)
xlBook.Application.Quit
Set xlBook = Nothing
xlApp.Quit
Set xlApp = Nothing
求高手，告知原因与解决方式 ，当高分悬赏 展开
Dim xlBook As Object
Dim xlSheet As Object
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(strFile)
Set xlSheet = xlBook.Worksheets("sheet1")
........ '对excel的操作
xlBook.Save
Set xlSheet = Nothing
‘xlBook.Close (True)
xlBook.Application.Quit
Set xlBook = Nothing
xlApp.Quit
Set xlApp = Nothing
求高手，告知原因与解决方式 ，当高分悬赏 展开
4个回答
展开全部
报错信息在哪儿?
断点在哪里?
断点在哪里?
更多追问追答
追问
报错是第二次运行时，
在任务管理器中有2个excle.exe了
后面对excel的操作就报错
追答
xlApp.Quit
只是关掉了,当前的一个子表,EXCEL的主程序没有关闭.
Set xlApp = Nothing
只是把xlApp设置成空没有关闭.
展开全部
strFile在哪儿定义的？
追问
strFile 是自己的xls文件路径
追答
这几句没什么问题啊，如果strFile存在的话
展开全部
报什么错?是因为重名了?
更多追问追答
追问
没有重名，老包什么远程服务器 -----不可用
追答
Application.Quit
ThisWorkbook.Close False
这个试试
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
