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

zhaogang1960

whb2008cool 发表于 2014-4-30 15:33
如果是打开状态呢？ 'Application.Run "'" & wb.Name & "'!Thisworkbook.b"？

把路径去掉即可：
Application.Run "'b.xls'!ThisWorkbook.Macro1"

sunny_8848

Run用的很少，学习了，多谢

sogo777

zhaogang1960 发表于 2014-4-30 15:36
把路径去掉即可：
Application.Run "'b.xls'!ThisWorkbook.Macro1"

http://club.excelhome.net/thread-1117419-1-1.html
赵老师，帮我看下这个问题可否实现

ak47ok

每次回帖、谢谢！辛苦了。

ak47ok

zhaogang1960 发表于 2014-4-30 15:36
把路径去掉即可：
Application.Run "'b.xls'!ThisWorkbook.Macro1"

这个问题请教赵版：
设有两个不同路径的工作薄，分别为“第1个工作薄.xlsm”、“第2个工作薄.xlsm”。
现第1个工作薄.xlsm已打执行它的代码Sub 过程1()到最后、执行打开第2个工作薄.xlsm、并运行第2个工作薄.xlsm的代码Sub 过程2()
Sub 过程1()

    ……
    ……
    ActiveWorkbook.Save
    Workbooks.Open Filename:="D:\第2个工作薄.xlsm"
    Windows("第2个工作薄.xlsm").Activate
Application.Run "'第2个工作薄.xlsm'!过程2"
End Sub

Sub 过程2()
    Workbooks("第1个工作薄.xlsm").Close SaveChanges:=False

    Columns("E:E").Select
    ……
    ……
End Sub


现遇到的问题是在过程2代码执行将第1个工作薄.xlsm关闭后、它不会接着执行下一句代码
Columns("E:E").Select
而好象是处于Sub 过程2()退出状态，请问赵版问题何在，谢谢！

聂荻昌

liucqa 发表于 2011-12-13 15:37
除了工作簿带路径的情况，需要用单引号括起来之外，其他的情况尽量不要用单引号。

上述例子中，第二种方 ...

我想问一下，这个不能传递对象，是指不能输出，还是输入输出都不行？

cjq253

run方法，在调用test1、test2对x、y进行修改操作后，传回callrun中的仍是初始值，怎样可以让它传回修改后的值呢？

yiguxianyun

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

谢谢大师指点，自己加撇号总是加不到正确的位置，下载了你的原文件仔细对比，总算加对了

大灰狼1976

聂荻昌 发表于 2018-9-2 18:11
我想问一下，这个不能传递对象，是指不能输出，还是输入输出都不行？

可以传递对象，至少向外输出是可以的。

天门白云

大灰狼1976 发表于 2024-3-1 15:25
可以传递对象，至少向外输出是可以的。

大灰狼老师，好久都没有看到你了，还是之前在精英网那边看到过你呢