如何使用shell函数实现循环调用DOS程序？

bjjt122

大家好。遇到一个小麻烦。我在vba中使用shell函数打开Windows DOS ，然后在此基础上再打开一个名为 xfoil.exe的DOS 程序，并调入一个action1.txt 的文件进行计算。代码如下：
Call Shell("cmd /c C:\Users\Axue122\Desktop\xfoil.exe  <C:\Users\Axue122\Desktop\action1.txt >error_2.txt ", 1)

现在的问题是，我有多个action.txt文件（action2.txt,action3.txt.....）文件，想使用一个for循环依次计算。但是,目前情况是，尝试把变量 i 拼接进action尾部，代码不能成功运行。也就是说不能使用字符串拼接变量的方式来改变action后面的数字，所以,现在不知道有什么办法能把变量 i 带入call shell (）号内，并成功运行代码？
不然有几个action文件就写几行代码。。。。。。。

call shell("cmd /c C:\Users\Axue122\Desktop\xfoil.exe  <C:\Users\Axue122\Desktop\action1.txt >error_2.txt ", 1 )
call shell("cmd /c C:\Users\Axue122\Desktop\xfoil.exe  <C:\Users\Axue122\Desktop\action2.txt >error_2.txt ", 1 )
call shell("cmd /c C:\Users\Axue122\Desktop\xfoil.exe  <C:\Users\Axue122\Desktop\action3.txt >error_2.txt ", 1 )

江南新绿

首先单行没有问题？
dim i as long
for i=1 to 10
call shell("cmd /c C:\Users\Axue122\Desktop\xfoil.exe  <C:\Users\Axue122\Desktop\action" & i & ".txt >error_2.txt ", 1 )
next
－－－－－－－－－－－－－－－－－－－－－－
猜不到是什么问题！

bjjt122

江南新绿 发表于 2019-3-17 21:58
首先单行没有问题？
dim i as long
for i=1 to 10

非常感谢，已解决。

sub Xfoil()
For i = 1 To 2

Call Shell("cmd /c C:\Users\Axue122\Desktop\xfoil.exe <C:\Users\Axue122\Desktop\action" & i & ".txt >nul", 1)   

Next i

End Sub