带你入门VBA，第四讲（如何控制关于工作薄与工作表）

啊一

今天又来看了好多,学习了好多,特别是那个调用对话框的方法,让我知道了好多对话框的参数.还有,什么情况下把代码放在THISBOOK里,什么时候放在SHEET里,什么时候放在BEFORECLOSE里等等.虽然没试可脑子里有了一个大概的概念了.

yasen

再请问:

如何判断一个文件是否已经被打开?

shangyu

以下是引用yasen在2004-11-4 11:12:00的发言：

再请问:

如何判断一个文件是否已经被打开?

使用for each 循环workbooks集合，比较工作簿名称。。。

或使用错误处理：

on error resume next

dim wb as workbook

set wb = workbooks("aaa.xls")

if wb is nothing then

msgbox "not open"

else

magbox "it's opend"

end if

set wb = nothing

err.clear

on error goto 0

wuaza

请问shangyu兄，后面两句怎么理解？

err.clear

on error goto 0

shangyu

以下是引用wuaza在2004-11-4 12:23:00的发言：

请问shangyu兄，后面两句怎么理解？

err.clear

on error goto 0

1、清除错误对象；

2、禁止错误处理，也就是错误时停止执行，看需要。。。调试阶段需要的。。

yasen

if wb is nothing then 可否写成

if workbooks("aaa.xls") is nothing then

workbooks("aaa.xls")是不是用来检测文件打开状态?其返回值是什么?

shangyu

以下是引用yasen在2004-11-4 13:44:00的发言：

if wb is nothing then 可否写成

if workbooks("aaa.xls") is nothing then

workbooks("aaa.xls")是不是用来检测文件打开状态?其返回值是什么?

1、自己试试；

2、workbooks("aaa.xls")代表工作簿对象（aaa.xls）。

如果打开，返回值就是该对象，也就是工作簿aaa.xls。

没打开，返回值是nothing，没有。

Long_III

我终于把这些都看完了，谢谢老师和各位同学！

我要好好学习VBE

chengyuyu

谢谢兰老师，这个论坛太好，还有是因为兰老师而精采。

龙云枫

来晚了.