VB运行命令 - VBA

在VBA中，可以使用Shell函数执行外部命令。该函数接收一个字符串参数，该参数是要执行的命令及其参数。这些参数应该被引号括起来，以便正确识别。

Sub RunCommand()
    '执行dir命令
    Shell "cmd /c ""dir""", vbNormalFocus 
End Sub

注意，cmd /c是在Windows上运行命令的方式。

如果您想使用变量作为命令的一部分，则需要使用字符串连接运算符 &。

Sub RunCommandWithVariables()
    Dim command As String
    command = "ping " & "github.com"
    Shell "cmd /c """ & command & """", vbNormalFocus
End Sub

您还可以使用Shell函数的第二个参数来指定应用程序启动的方式。例如，使用vbMaximizedFocus参数可以最大化命令行窗口。

Sub RunCommandMaximized()
    '执行ping命令并最大化窗口
    Dim command As String
    command = "ping " & "github.com"
    Shell "cmd /c """ & command & """", vbMaximizedFocus
End Sub

生产环境中，请注意检查您的输入和过滤参数，以防止命令注入攻击等安全问题。

以上是使用VBA运行命令的简单示例，更多信息和代码示例请参阅MSDN文档或其他VBA教程。