方法使用运行命令无法运行对象,但不能逐步执行

时间:2019-04-10 14:31:46

标签: excel vba object

我编写了一段快速的代码,该代码在另一本工作簿上很好用,但是在当前工作簿上却没有。 目标很简单:打开一个工作簿并在该工作簿中运行一个宏。  我有以下错误信息 “对象'_Application'的方法'Run'失败

奇怪的是:当我用F5执行完整的宏时,我收到了错误消息,但是如果我执行逐步命令(F8)则可以正常工作

奇怪的是:当我用F5执行完整的宏时,我收到了错误消息,但是如果我执行逐步命令(F8)则可以正常工作

Sub open_Inbound()
Dim wbInbound As Workbook
Application.AutomationSecurity = msoAutomationSecurityLow
Workbooks.Open Filename:="my path/removed", 
ReadOnly:=True
Set wbInbound = Workbooks("my name.xlsm")
'wbInbound.Activate
DoEvents
Application.Run "'" & wbInbound.Name & "'!Thisworkbook.makeIndicator"

DoEvents
wbInbound.Close


End Sub

当我按F5或运行命令时,我希望在正常处理中运行宏“ makeIndicator”,而不仅是一步一步地

0 个答案:

没有答案