如何通过VBA获取CMD执行结果？现有代码遇阻求解决方案

我来帮你搞定这个问题！你现在的代码有两个核心问题：一是用Shell.Application.ShellExecute启动CMD的方式根本没法捕获标准输出（也就是你想拿的StdOut），二是SendKeys这种依赖窗口焦点和硬编码等待时间的方式太不稳定了，稍微网络慢一点或者窗口没激活就彻底乱套。

现有代码的核心问题 #

• ShellExecute无法捕获输出：Shell.Application的ShellExecute方法只是启动程序，不会返回能访问StdOut/StdErr的对象，你代码里的oOutput变量根本没被正确赋值，自然读不到内容。
• SendKeys不可靠：这个方法完全依赖当前窗口焦点，而且硬写的等待时间（比如0:01:00）完全不灵活，网络延迟、服务器响应慢都会导致输入时机错误。

正确的实现方式：用WScript.Shell.Exec直接执行命令并捕获输出 #

WScript.Shell的Exec方法可以启动程序并返回一个WshExec对象，这个对象直接提供了StdOut、StdErr、StdIn的访问，完全不需要SendKeys和等待窗口。我们可以直接让plink在命令行里完成SSH连接+SQL执行，一步到位。

以下是完整的可运行代码示例：

Sub FetchSQLFromServer()
    Dim wsh As Object
    Dim execObj As Object
    Dim outputLine As String
    Dim targetSheet As Worksheet
    Dim rowNum As Integer
    
    ' 初始化对象和目标工作表
    Set wsh = CreateObject("WScript.Shell")
    Set targetSheet = ThisWorkbook.Sheets("Sheet1") ' 替换成你要存储结果的工作表名
    rowNum = 1 ' 从第一行开始写入数据
    
    ' 构造plink命令：直接在命令行传递SSH连接参数和要执行的SQL
    ' 注意：SQL中的双引号需要用两个双引号转义，或者改用单引号包裹SQL语句
    Dim plinkCmd As String
    plinkCmd = "plink.exe -ssh username@ipaddress -pw password ""run sql select n.dnorpattern as Directory_Number, n.description as Description from your_table_name"""
    
    ' 执行命令并捕获输出对象
    Set execObj = wsh.Exec(plinkCmd)
    
    ' 读取标准输出，逐行解析并写入Excel
    Do While Not execObj.StdOut.AtEndOfStream
        outputLine = execObj.StdOut.ReadLine
        ' 跳过空行和服务器命令提示符等无关内容
        If Trim(outputLine) <> "" And Not Left(outputLine, 1) = "$" Then
            ' 假设输出是制表符分隔的，拆分数据列
            Dim parts As Variant
            parts = Split(outputLine, vbTab) ' 如果是空格分隔，可改为Split(outputLine, " ")，注意处理多空格情况
            If UBound(parts) >= 1 Then ' 确保至少有两列有效数据
                targetSheet.Cells(rowNum, 1).Value = parts(0)
                targetSheet.Cells(rowNum, 2).Value = parts(1)
                rowNum = rowNum + 1
            End If
        End If
    Loop
    
    ' 检查是否有错误输出（比如连接失败、SQL语法错误）
    If Not execObj.StdErr.AtEndOfStream Then
        MsgBox "执行出错：" & execObj.StdErr.ReadAll, vbCritical
    End If
    
    ' 清理对象
    Set execObj = Nothing
    Set wsh = Nothing
    Set targetSheet = Nothing
    
    MsgBox "数据导入完成！", vbInformation
End Sub

重要注意事项 #

• 避免明文密码：把密码写在代码里极度不安全，建议改用plink的密钥认证：
  1. 用puttygen.exe生成密钥对，将公钥上传到服务器的~/.ssh/authorized_keys文件中
  2. 修改plink命令为：plink.exe -ssh username@ipaddress -i "C:\路径\到\你的\私钥.ppk" "run sql ..."
• SQL语句转义：如果SQL中包含双引号，必须替换为两个双引号（""），或者将整个SQL用单引号包裹（需服务器支持）。
• plink路径：如果plink不在系统环境变量的PATH中，要写完整路径，比如"C:\Program Files\PuTTY\plink.exe"
• 输出格式适配：上述代码假设输出是制表符分隔，你需要根据服务器返回的实际格式调整Split的分隔符，若为固定宽度则需用字符串截取处理。

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