VBA调用Python脚本无法写入Excel单元格问题求助

你的问题主要由两个核心原因导致：

1. Python脚本未执行保存操作 #

你的Python代码修改了Excel单元格内容，但没有调用wb.save()方法将修改写入磁盘，这是导致修改无法生效的关键之一——openpyxl对工作簿的修改仅停留在内存中，必须执行保存操作才能同步到文件。

2. VBA调用时未传递输入参数，脚本卡在等待输入环节 #

Python脚本里用input()等待用户输入文件名，但VBA调用时未提供该输入，导致脚本一直卡在等待状态，根本没执行到后续的计算和写入逻辑。

修复后的Python脚本 #

改为通过命令行参数接收Excel文件路径，移除input()，并添加保存操作：

from openpyxl import load_workbook
import sys

# 从命令行参数获取Excel文件路径
if len(sys.argv) < 2:
    print("请提供Excel文件路径")
    sys.exit(1)

filesheet = sys.argv[1]
wb = load_workbook(filesheet, data_only=True, keep_vba=True)
ws = wb["ESTADOS"]
ww = wb["SEÑALES"]

binario = str(ws["D27"].value)
print(binario)
hexa = hex(int(binario, 2))
print(hexa)

filas = ww.max_row

for x in range(2, filas + 1):
    celda = ww.cell(row=x, column=2).value
    # 直接判断None，避免字符串转换的冗余
    if celda is None and hexa != 0:
        print(hexa)
        ww.cell(row=x, column=2).value = hexa
        hexa = 0

# 保存修改到文件
wb.save(filesheet)

修复后的VBA代码 #

传递当前Excel文件的完整路径作为参数，等待Python脚本执行完毕，并处理路径空格问题：

Sub link_python()
    Dim objShell As Object
    Dim PythonExe As String
    Dim PythonScript As String
    Dim ExcelFilePath As String
    
    Set objShell = VBA.CreateObject("Wscript.shell")
    
    ' Python解释器路径（用双引号包裹避免路径空格问题）
    PythonExe = """C:\Users\z004nxje\python.exe"""
    ' Python脚本路径
    PythonScript = """C:\Users\z004nxje\SITRA\Script.py"""
    ' 当前Excel文件的完整路径
    ExcelFilePath = """" & ThisWorkbook.FullName & """"
    
    ' 运行脚本并等待执行完成
    objShell.Run PythonExe & " " & PythonScript & " " & ExcelFilePath, Wait:=True
    
    ' 刷新Excel内容，确保修改实时显示
    ThisWorkbook.RefreshAll
End Sub

额外注意事项 #

• 文件锁定问题：如果Excel文件在VBA运行时处于打开状态，openpyxl保存时可能遇到权限冲突。可以在VBA中先保存并关闭文件，执行Python脚本后再重新打开；或者确保文件未被其他进程占用。
• 路径空格处理：所有包含空格的路径必须用双引号包裹，避免命令解析错误。
• openpyxl版本兼容：确保使用2.4及以上版本的openpyxl，以支持keep_vba=True参数保留Excel中的VBA代码。

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