如何通过VBA在Access中执行Python脚本？代码无输出问题求助

我来帮你搞定这个问题～你现在用Shell函数调用Python脚本后看不到打印输出，主要是因为默认情况下Python执行完脚本会立刻关闭控制台窗口，或者输出没被捕获到。下面给你几个实用的解决方案：

方案1：让控制台窗口保持打开（快速临时查看） #

这个方法适合你只是想快速确认脚本的输出内容：

• 修改Python脚本：在脚本的最后一行加上input("执行完成，按回车键关闭窗口...")，这样脚本执行完后会暂停，等你按回车才关闭窗口，就能看到打印的内容了。
• 修改VBA的Shell命令：用cmd /k来包裹Python命令，这样执行完脚本后cmd窗口会保持打开。修改后的代码：

  Private Sub Toggle10_Click()
      Call Shell("cmd /k python.exe D:\project\nc\test.py", 1)
  End Sub
  

  cmd /k的作用是执行后面的命令后不关闭控制台窗口，方便你查看输出。

方案2：捕获输出到Access中（更专业的集成方式） #

如果想把Python的输出直接拿到Access里显示或者保存，推荐用WScript.Shell的Exec方法，它可以捕获脚本的标准输出和错误信息。替换你的VBA代码为：

Private Sub Toggle10_Click()
    Dim wsh As Object
    Dim execObj As Object
    Dim output As String
    
    ' 创建WScript.Shell对象
    Set wsh = CreateObject("WScript.Shell")
    ' 执行Python脚本，注意如果路径有空格要给路径加双引号
    Set execObj = wsh.Exec("python.exe ""D:\project\nc\test.py""")
    
    ' 读取脚本的标准输出
    output = execObj.StdOut.ReadAll()
    ' 读取错误输出（如果脚本执行出错，这里会显示错误信息）
    output = output & vbCrLf & "错误信息：" & execObj.StdErr.ReadAll()
    
    ' 用消息框显示结果，也可以把内容写入Access的文本框或者表中
    MsgBox "Python脚本执行结果：" & vbCrLf & output
    
    ' 释放对象
    Set execObj = Nothing
    Set wsh = Nothing
End Sub

这个方法的好处是不用依赖控制台窗口，还能直接捕获错误信息，方便你调试脚本是否正常执行。

额外检查：确保Python路径正确 #

如果上面的方法还是不行，先确认你的系统能找到Python.exe：

• 打开命令提示符（cmd），输入where python，会显示Python的完整安装路径，比如C:\Python310\python.exe。
• 如果python.exe不在系统环境变量里，把VBA里的python.exe替换成完整路径，比如：

  Call Shell("C:\Python310\python.exe D:\project\nc\test.py", 1)
  

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