如何通过Python的win32com库直接执行单行VBA代码操作Excel

你不需要在Excel文件中预先编写存储宏，通过动态注入临时VBA模块的方式，就能实现直接传入单行VBA语句执行的效果，替代不存在的RunLine方法。
你当前已实现的能力、期望的效果代码如下：

import os
import win32com.client
xl = win32com.client.Dispatch("Excel.Application")
xl.Workbooks.Open(Filename='foo.xlsx')

# 已支持：调用xlsm文件内预存的宏
xl.Application.Run("excelsheet.xlsm!modulename.macroname")

# 期望实现：直接执行传入的单行VBA语句，无需预存宏
# xl.Application.RunLine('ThisWorkbook.ContentTypeProperties("Project Title") = "Category A"')

xl.Application.Save()
xl.Application.Quit()
del xl

Excel COM接口没有提供原生的RunLine方法，你可以封装一个通用执行函数，逻辑为：临时创建标准VBA模块、将传入的单行代码包装为临时宏、执行完成后立刻删除临时模块，全程不会在文件中残留宏代码。
完整可运行代码：

import os
import win32com.client

def exec_vba_line(excel_app, workbook, single_line_code):
    temp_macro = "temp_exec_macro"
    # 把单行代码包装为合法的VBA过程
    wrapped_code = f"Sub {temp_macro}()\n{single_line_code}\nEnd Sub"
    # 添加临时标准模块
    temp_module = workbook.VBProject.VBComponents.Add(1)
    temp_module.CodeModule.AddFromString(wrapped_code)
    try:
        # 执行临时过程
        excel_app.Run(f"{workbook.Name}!{temp_macro}")
    finally:
        # 无论执行成功失败，都删除临时模块
        workbook.VBProject.VBComponents.Remove(temp_module)

if __name__ == "__main__":
    xl = win32com.client.Dispatch("Excel.Application")
    xl.Visible = False  # 后台运行，不弹出Excel窗口
    xl.DisplayAlerts = False  # 屏蔽所有弹窗提示
    wb = xl.Workbooks.Open(Filename="foo.xlsx")
    
    # 直接传入要执行的单行VBA即可
    exec_vba_line(xl, wb, 'ThisWorkbook.ContentTypeProperties("Project Title") = "Category A"')
    
    wb.Save()
    xl.Quit()
    del xl

前置配置：首次运行前需要打开Excel，进入「文件-选项-信任中心-信任中心设置-宏设置」，勾选「信任对VBA工程对象模型的访问」，否则操作VBA项目时会抛出权限拒绝错误。

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