vba 调用另一个工作簿中的函数

[chenchuanfeng001]

我在一个工作簿中想调用工作簿book1.xls中的函数。两个工作簿都打开了。语句如下：
dim commonWS as worksheet
Set commonWS = workbooks("book1.xls").Sheets("sheet1")
call commonWS.test
运行时会出现
编译错误 方法和数据成员未找到。
但是如果把第一句 定义删掉就没错。
为什么?难道workbooks("book1.xls").Sheets("sheet1")得到的不是一个worksheet?

[laoyebin]

Application.Run "example.xls!test"

[舉杯邀明月]

[Quote=引用 1 楼 laoyebin 的回复:]
Application.Run "example.xls!test"
[/Quote]
Ding ..........


楼主，真的是“但是如果把第一句 定义删掉就没错。”吗？
你运行到这句时：
call commonWS.test

看看！

[paul_lsx]

1楼正解

[liquoryellow]

报错不是说的很明白了么。应该是call commonWS.test 中的test方法不存在。

[guyun0]

[Quote=引用楼主 chenchuanfeng001 的回复:]
我在一个工作簿中想调用工作簿book1.xls中的函数。两个工作簿都打开了。语句如下：
dim commonWS as worksheet
Set commonWS = workbooks("book1.xls").Sheets("sheet1")
call commonWS.test
运行时会出现
编译错误 方法和数据成员未找到。
但是如果把第一句 定义删掉就没错。
为什么?难道workbooks("book1.xls").Sheets("sheet1")得到的不是一个worksheet?


[/Quote]
改为：
dim CommonWs as workbook
将.Sheets("sheet1")去掉试一下