通过Python调用Excel宏时宏重复运行、日期录入表单两次弹出如何解决

核心原因 #

1. Python侧调用Excel宏的语法错误，带空括号导致宏被执行2次
2. VBA代码存在逻辑漏洞，正常流程结束未退出子程序，且有冗余的资源释放操作会触发异常
3. Python代码存在重复关闭工作簿的问题，会触发额外异常

修复步骤 #

1. 修正Python侧宏调用代码 #

Win32com调用Excel宏时不需要在宏名后加空括号，同时删除重复的private_wb.Close语句，修改后代码如下：

excel = Win32com.client.Dispatch('Excel.Application')
excel.Visible = 0

private_wb = excel.Workbooks.Open("Macro file path")
data_sheet = private_wb.Worksheets("Data")
# 去掉宏名后的括号
excel.Application.Run("Macro.Load_NAV_Data")

private_wb.Close(SaveChanges = 1)

# --- skip logic ---

submit_wb = excel.Workbooks.Add()
submit_sheet = submit_wb.Worksheets(1)
submit_sheet.name = "Submit"

submit_wb.SaveAs("Path where to save")
# 删掉下面这行重复关闭的代码
# private_wb.Close(SaveChanges = 0)
submit_wb.Close(SaveChanges = 0)

# 最后退出Excel进程，避免后台残留
excel.Quit()

2. 修正VBA代码逻辑 #

在正常业务流程结束后增加Exit Sub语句，避免进入错误处理分支，同时删除冗余的资源释放代码，修改后核心片段如下：

'--------------------------------
    ' 原有资源释放逻辑
    '--------------------------------
    If Not Rs Is Nothing Then
        If Rs.State = adStateOpen Then Rs.Close
        Set Rs = Nothing
    End If
    If Not cn Is Nothing Then
        If cn.State = adStateOpen Then cn.Close
        Set cn = Nothing
    End If

    ' 新增：正常流程结束直接退出，不执行错误处理代码
    Exit Sub

ERR_HANDLER:
    'Error message
    Debug.Print Err.Number & ")" & Err.Description
    MsgBox Err.Number & ")" & Err.Description

    ' 错误分支资源释放逻辑保留
    If Not Rs Is Nothing Then
        If Rs.State = adStateOpen Then Rs.Close
        Set Rs = Nothing
        End If
    If Not cn Is Nothing Then
        If cn.State = adStateOpen Then cn.Close
        Set cn = Nothing
    End If
End Sub

可选优化（适合自动化场景） #

如果不需要人工输入日期，可直接将日期作为参数从Python传递给宏，完全取消表单交互：

1. 修改VBA宏定义，接收日期参数：

Sub Load_NAV_Data(strStandardDate As String)
    ' 删掉原来调用StandardDateForm的3行代码，直接使用传入的strStandardDate
    ' 剩余原有逻辑保持不变
End Sub

2. Python调用时传入日期参数：

excel.Application.Run("Macro.Load_NAV_Data", "2024-05-20")

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