VB与EXCEL问题 急！急！急！

Question

Set xl = CreateObject("Excel.Application")
Set xbook = xl.Workbooks.Open("\\pc131\TEST\costf-gb new.xls")
Set xbook = Nothing
Set xl = Nothing
上面是我连接EXCEL代码，上午明明可以，下午测试运行就不行并提示错误如下：
“不能访问costf-gb new.xls”，该文件可能是只读，或者你要访问的位置是只读的，或者文件所在的位置响应"
我根据提示去找问题
1。访问的这个文件的电脑网络正常。
2。该文件位于的电脑并没有打开这个文件即使打开也没系，至少可以连接。
3。一会儿行，一会儿不行有可能是网络造成的或者是说SET XBOOK=NOTHING 没有释放权。
急！急！急！

Answer 1

Set xl = CreateObject("Excel.Application")
Set xbook = xl.Workbooks.Open("\\pc131\TEST\costf-gb new.xls")
xbook.quit
Set xbook = Nothing
Set xl = Nothing

Answer 2

你上午开的Excel文件没有关掉,要在代码中加入楼上讲的那样加上xl.Quit.
不过你现在要先在任务管理器中结束Excel进程后,才可以打开Excel文件.

Answer 3

1、可以不是同一个哉的吧。
如果不是，访问时要提供密码才行的。
2、如果没有做创建对象用完释放的，则必须每次用完要在任务管理器中结束Excel进程

Answer 4

上午没有释放掉EXCEL应用，所以出问题。