VBA执行函数，在参数cmd.exe中带有多个引号

Question

Here is a syntax error. How to properly run the ShellWait function? I care about double quotes being used. The boolean parameter should be able to be changed to false. I do not use VBA every day so I am asking for an example if you can.

Sub ShellWait(fName As String, Optional showWindow As Boolean = True)
    Dim wsh As Object
    Set wsh = VBA.CreateObject("WScript.Shell")
    wsh.Run fName, -showWindow, True
End Sub

Private Sub Document_close()
    ShellWait "cmd /c echo ^<meta http-equiv="x-ua-compatible" content="IE=10"^> && echo '"hello"' "
    ' ^the above code does not work
    ShellWait "cmd /c echo '"hello"' "
    ' ^the above code does not work, syntax error
    ShellWait (cmd /c echo '"hello"')
    ' ^the above code does not work, syntax error
End Sub

Answer 1

您可以使用以下内容

ShellWait "cmd /K echo ^<meta http-equiv=""x-ua-compatible"" content=""IE=10""^> && echo '""hello""' "