我在程序中调用了excel,
Set vbexcel = CreateObject("Excel.Application") '建立EXCEL对象
Set vbbook = vbexcel.Workbooks.Open("E:\Visual Basic\myproject\1\opoftp.xls") '打开文件, filename是文件路径加名字
Set vbsheet = vbbook.Worksheets("OutPut Report") '激活表单1.

之后使用下面的语句释放:
Set vbsheet = Nothing
Set vbbook = Nothing
Set vbexcel = Nothing

但是我在退出程序后打开E:\Visual Basic\myproject\1\opoftp.xls,系统提示这个文件已经被锁定,只能只读打开.
请问这是怎么回事?该如何解决呢??

之前好象看见过类似的问题,但是刚才找了下并没有找到,如果那位好心人知道的话也请告诉下,谢谢!!

之后使用下面的语句释放:
Set vbsheet = Nothing
Set vbbook = Nothing

vbexcel.Quit
Set vbexcel = Nothing

楼上的大哥,按照您给的方法修改后,vbexcel.Quit这行会出现 实时错误'424' 的报错