2016-05-06 2 views
0
Dim iim1, iret 
Set iim1 = CreateObject("imacros") 
iret = iim1.iiminit("-fx") 
iret = iim1.iimplay("PayU_Refunds") 
iret = iim1.iimDisplay("Done!") 
iret = iim1.iimClose() 

Я хочу использовать Play (Loop) вместо «iimplay», а также хотят, чтобы поместить значение в поле «MAX» из imacro, от excel vba, возможно; если да, любезно предложите код.Play (Loop) IMacro из Excel VBA и поставить максимальное значение в IMacro для воспроизведения Loop

+0

Посмотреть пример того, как цикл через число [здесь] (http://wiki.imacros.net/iimSet()). – Shugar

ответ

0

Я думаю, что вы можете сделать, это сделать петлю непосредственно в Excel, играя в несколько раз IMacro: Измените переменную {{!LOOP}} в вашем IMacro к {{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, но дать ему попробовать и дайте нам знать, если работал :)