关于Application.Run的十分奇怪的问题

panglong00

今天调试一段代码，一次按键，总是莫名其妙的运行两次自定义函数。


排查了5个小时，最终确认是多了一个 “（）”  引起的，见附件和图片。我想知道为什么，然后怎么解决VB6里面只要运行一次。

   
Sub 运行Sub函数()
   
    Application.Run ("mmcc()")   'VBA和VB6环境中，这句会运行两次mmcc函数。为什么！！为什么？？为什么！
   
'    Application.Run ("mmcc")   'VBA环境中这句会运行一次mmcc函数。但是移植到VB6里面就不能运行了。为什么！！为什么？？为什么！
   
End Sub
   
Sub mmcc()
    Dim rng As Range, i
    Dim add_str As String
    For Each rng In Selection
        i = i + 1
        msgbox i
    Next
End Sub


请高手指点一下，谢谢

f8b1987

Application 对象 (Excel)，代表整个 Microsoft Excel 应用程序。
vb6不能直接调用application

ykcbf1100

用call mmcc语句代替Application.run("mmcc()")

panglong00

f8b1987 发表于 2024-3-1 08:05
Application 对象 (Excel)，代表整个 Microsoft Excel 应用程序。
vb6不能直接调用application

函数名目前是变量，在VB6里面应该如何处理呢？

panglong00

ykcbf1100 发表于 2024-3-1 08:07
用call mmcc语句代替Application.run("mmcc()")

函数名目前实际情况是变量，无法确定，（示例中只是为了解释问题才用的MMCC）。请问在VB6里面应该如何处理呢？  或者VBA中，除了CALL 方法，有没有其他运行方法？？

ykcbf1100

VB6没使用经验。

perfect131

我看到 一个解释
他说 Application.Run第一个参数已经有括号，所以不需要括号 因为是 Arg1 的原因
Application.Run ("mmcc()") 就是 Application.Run ("mmcc()()") ，所以会被执行两次

panglong00

目前麻烦的是：宏的名称不固定，用的是变量，所以用call不成功。

.Application.Run可以运行变量名称的宏，但是代码移植到VB6里面后，变量名有“()”的会运行两次宏，变量名没有“()”的不会运行宏  。

今天有测试的半天，依旧没有找到解决办法。

perfect131

panglong00 发表于 2024-3-1 22:59
目前麻烦的是：宏的名称不固定，用的是变量，所以用call不成功。

.Application.Run可以运行变量名称的宏 ...

vb6 没用过 试试用 callbyname

panglong00

perfect131 发表于 2024-3-2 17:06
vb6 没用过 试试用 callbyname

首先谢谢你。

你提供的这个方法CALLBName 我也试过了，和run一样，有（），无论是VBA还是VB6都会运行两次。没有（），VBA运行正常，VB6无法运行。

我目前也没有办法了，暂时搁置在那了。 等待高手出现。