Question

Dim iim1, iret
Set iim1 = CreateObject("imacros")
iret = iim1.iiminit("-fx")
iret = iim1.iimplay("PayU_Refunds")
iret = iim1.iimDisplay("Done!")
iret = iim1.iimClose()

我想使用Play（循环）代替＆＃34; iimplay＆＃34;并且还希望将值放在＆＃34; MAX＆＃34;来自excel vba的imacro盒子就是可能的;如果有，请建议代码。

Answer 1

我认为您可以做的是直接在Excel中创建循环，多次播放iMacro：将iMacro中的变量{{!LOOP}}更改为{{loop}}，然后使用iimSet("loop", i)每次播放时设置循环的值。

它应该是这样的：

Dim iim1, iret
Set iim1 = CreateObject("imacros")
For i = 1 To 5
    iret = iim1.iiminit("-fx")
    iret = iim1.iimSet("loop", i)
    iret = iim1.iimplay("PayU_Refunds")
Next i
iret = iim1.iimDisplay("Done!")
iret = iim1.iimClose()

现在无法在Excel中测试它，但请试一试，让我们知道是否有效：）

从Excel VBA播放（循环）Imacro并将Max Value放入IMacro以播放循环

1 个答案: