Application.Run 的参数传递示例，测试通过

zhaogang1960 · 发表于 2011-12-13 22:16

excelhomeljch 发表于 2011-12-13 22:09
不好用?方法是你选择的
为什么你还是用fullname?我的回答是name

fullname 和 name都可以
关键是：如果objWB是 nothing 时 objWB.FullName什么也不是
导致了“ Application.Run "'" & wb.fullname & "'!sheet1.Macro1" 不行”

liucqa · 发表于 2011-12-13 22:19

excelhomeljch 发表于 2011-12-13 22:09
不好用?方法是你选择的
为什么你还是用fullname?我的回答是name

name和fullname效果一样的

我刚才又测试一下，方法是对的，可能是别的地方的问题，谢谢

excelhomeljch · 发表于 2011-12-13 22:31

zhaogang1960 发表于 2011-12-13 22:16
fullname 和 name都可以
关键是：如果objWB是 nothing 时 objWB.FullName什么也不是
导致了“ Applicat ...

我这里测试,用fullname的确是不行的,请问你确定fullname和name是一样?

excelhomeljch · 发表于 2011-12-13 22:41

这是我测试的文件

run.rar (14.06 KB, 下载次数: 33)

zhaogang1960 · 发表于 2011-12-13 23:06

excelhomeljch 发表于 2011-12-13 22:41
这是我测试的文件

请看演示和附件：

Run调用其它工作簿的宏.rar (14.87 KB, 下载次数: 91)

zhaogang1960 · 发表于 2011-12-13 23:08

excelhomeljch 发表于 2011-12-13 22:41
这是我测试的文件

Application.Run "'" & wb.FullName & "'!shiy"'工作簿全名两端加上瞥号“'”

excelhomeljch · 发表于 2011-12-13 23:26

zhaogang1960 发表于 2011-12-13 23:08
Application.Run "'" & wb.FullName & "'!shiy"'工作簿全名两端加上瞥号“'”

原来如此.谢谢

liucqa · 发表于 2011-12-13 23:39

excelhomeljch 发表于 2011-12-13 23:26
原来如此.谢谢

用你的文件做了个测试样本

Application.Run方法.rar (17.65 KB, 下载次数: 97)

excelhomeljch · 发表于 2011-12-13 23:42

{:soso_e183:}

liucqa · 发表于 2011-12-13 23:44

zhaogang1960 发表于 2011-12-13 23:06
请看演示和附件：

Sub 宏1() 'b.xls不打开状态
Application.Run "'" & ThisWorkbook.Path & "\" & "b.xls'!sheet1.Macro1"
End Sub

顺便问一下，这种调用方式要是想关闭b.xls，是不是还得getobject，然后再close ?

		自动登录	找回密码
密码			免费注册