如何使用 VBA excel 命令 cmd？

Question

我想通过 Excel 使用 VBA 打开 CMD。

打开的时候应该写在命令行上；

"runAnalysis bendingResult/Sample1.csv bendingResult/SampleResult1.csv"

执行时，cmd 在运行完成时关闭。

我通常必须输入上面的内容，但我想使用 Excel VBA.

在 CMD 上自动执行它

我用这个打开cmd。我的代码如下：

Dim PID
PID = Shell("C:\Analysis\x86\cmd.exe", vbNormalFocus)

Answer 1

您可以使用：

shell ("runAnalysis bendingResult/Sample1.csv bendingResult/SampleResult1.csv")

但是如果您需要使用多行，那么您需要创建一个 bat 文件并运行它：

Dim oFile As Object
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFile = fso.CreateTextFile("C:\somepath\somefile.bat")

oFile.WriteLine "C:"
oFile.WriteLine "cd windows"
oFile.WriteLine "dir"
oFile.WriteLine "pause"

oFile.Close

Shell ("C:\somepath\somefile.bat")

如何使用 VBA excel 命令 cmd？

How to command cmd using VBA excel?

excel

vba

cmd