如何在Excel 365 VBA中打开cmd.exe？Shell方法失效问题

你遇到的问题核心有两个：

• 原代码里的nShowCmd参数用了0（对应SW_HIDE），导致cmd.exe实际已启动但窗口被隐藏，无法看到
• 直接打开cmd.exe不加参数的话，窗口会执行完默认操作后自动关闭，看起来像没启动

以下是两种可行的解决方法：

方法1：修正ShellExecute参数 #

调整窗口显示参数，同时给cmd.exe加上保持窗口打开的参数：

Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr

Sub OpenCmdWithShellExecute()
    Dim lngErr As LongPtr
    ' 1对应SW_SHOW，让cmd窗口正常显示；/k参数让窗口打开后保持运行状态
    lngErr = ShellExecute(0, "OPEN", "cmd.exe", "/k", "", 1)
    ' 可选：检查执行结果，返回值大于32表示成功
    If lngErr <= 32 Then
        MsgBox "打开cmd失败，错误代码：" & lngErr
    End If
End Sub

方法2：直接使用VBA Shell函数 #

Excel 365依然支持Shell函数，用更简洁的写法就能打开cmd：

Sub OpenCmdWithShell()
    ' vbNormalFocus指定窗口正常显示并获得焦点，/k参数保持窗口打开
    Shell "cmd.exe /k", vbNormalFocus
End Sub

补充说明 #

• 如果需要执行完指定命令后自动关闭窗口，可以把/k换成/c（比如Shell "cmd.exe /c dir", vbNormalFocus，执行完dir命令后窗口自动关闭）
• 一般不需要特殊权限，只要Excel和cmd的运行权限一致即可（避免一个是管理员权限、一个是普通用户权限的情况）

内容的提问来源于stack exchange，提问作者woef