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

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

本帖最后由 liucqa 于 2011-12-13 23:54 编辑

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

虽然测试文件是成功的，但是我的程序死活还是不行，不知道是不是因为调用的sub是我在打开工作簿之后用代码写进去的模块里的sub

具体现象是
1、死活不能run sheet里面的sub，已经排除书写错误-------------也许是codename的bug问题？
2、可以run标准模块里面的sub，但是奇怪的是如果我在sub名称后面加一个数字,就不能run，字母没事。.name和.fullname都试过。--------这个不能理解

真是神奇的VBA

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

你是通过vbe对象写入代码,再运行代码?

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

本帖最后由 liucqa 于 2011-12-13 23:52 编辑

excelhomeljch 发表于 2011-12-13 23:50
你是通过vbe对象写入代码,再运行代码?

对，也许是写进去的模块太多，Excel发烧了。反正我已经服了Excel了

excelhomeljch · 发表于 2011-12-14 00:08

liucqa 发表于 2011-12-13 23:51
对，也许是写进去的模块太多，Excel发烧了。反正我已经服了Excel了

是每一次都失败还是?
我这里简单的没有问题

VBE访问+RUN.rar (10.09 KB, 下载次数: 48)

zhaogang1960 · 发表于 2011-12-14 00:36

liucqa 发表于 2011-12-13 23:44
Sub 宏1() 'b.xls不打开状态
Application.Run "'" & ThisWorkbook.Path & "\" & "b.xls'!sheet1.Mac ...

这里写的是工作簿的全名，工作簿是否打开都可以，如果工作簿出于不打开状态，会自动打开

liucqa · 发表于 2011-12-14 09:42

excelhomeljch 发表于 2011-12-14 00:08
是每一次都失败还是?
我这里简单的没有问题

嗯，我的模块有点多，懒的调试了，把sheet模块挪到标准模块了

whb2008cool · 发表于 2014-4-30 15:17

zhaogang1960 发表于 2011-12-14 00:36
这里写的是工作簿的全名，工作簿是否打开都可以，如果工作簿出于不打开状态，会自动打开

老师，请问对于将代码复制进Thisworkbook中的宏如何运用application.run对其进行运行。谢谢

whb2008cool · 发表于 2014-4-30 15:09

liucqa 发表于 2011-12-13 22:07
试过了，不好用，语句如下

Application.Run "'" & objWB.FullName & "'!Sheet9.rebuildSummary"

你好，请问在Thisworkbook中的代码r如何运用 Application.run?

zhaogang1960 · 发表于 2014-4-30 15:29

whb2008cool 发表于 2014-4-30 15:17
老师，请问对于将代码复制进Thisworkbook中的宏如何运用application.run对其进行运行。谢谢

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

whb2008cool · 发表于 2014-4-30 15:33

zhaogang1960 发表于 2014-4-30 15:29
Sub 宏1() 'b.xls不打开状态
Application.Run "'" & ThisWorkbook.Path & "\" & "b.xls'!ThisWorkbo ...

如果是打开状态呢？ 'Application.Run "'" & wb.Name & "'!Thisworkbook.b"？

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