如何使用Python在Excel工作表中添加宏？现有代码仅支持工作簿

核心问题说明 #

你提供的截图显示的是Excel VBA编辑器中工作表对应的代码窗口，这就是需要写入宏的目标位置。而你的原代码是将宏写入Excel的标准模块（如Module1），并非工作表的专属代码模块，因此需要调整代码定位目标组件。

修改后的实现代码 #

首先确保已安装pywin32库（执行pip install pywin32安装），修改后的代码如下：

import win32com.client 
import os, sys

xl = win32com.client.Dispatch("Excel.Application")
# 可选：开启Excel可见性，方便调试
# xl.Visible = True

_file = os.path.abspath(sys.argv[0])
path = os.path.dirname(_file)

# 设置宏文件路径与宏名称（用os.path.join实现跨平台路径拼接）
pathToMacro = os.path.join(path, "myMacro.txt")
myMacroName = "UsefulMacro"

# 读取宏文件内容
with open(pathToMacro, "r", encoding="utf-8") as myfile:
    print(f"读取宏文件: {myfile.name}")
    macro = myfile.read()

# 打开目标宏工作簿（必须是xlsm格式，xlsx不支持宏）
wb_path = os.path.join(path, "deneme.xlsm")
wb = xl.Workbooks.Open(wb_path)

# 关键改动：定位到指定工作表的代码模块
# 方式1：通过工作表显示名称获取对应VB组件（推荐，避免CodeName改动问题）
target_sheet_display_name = "Sheet1"
# 获取工作表在VBA编辑器中的代码名称（CodeName）
sheet_code_name = wb.Worksheets(target_sheet_display_name).CodeName
# 通过CodeName定位工作表的VB组件
sheet_vb_component = wb.VBProject.VBComponents(sheet_code_name)

# 方式2：直接用VBA编辑器中显示的工作表代码名称（如未修改则为Sheet1）
# sheet_vb_component = wb.VBProject.VBComponents("Sheet1")

# 将宏代码写入工作表的代码模块
sheet_vb_component.CodeModule.AddFromString(macro)

# 保存修改并退出Excel
wb.Close(SaveChanges=True)
xl.Quit()

关键注意事项 #

• Excel信任设置：必须启用"信任对VBA项目对象模型的访问"，否则会触发权限报错。设置路径：文件→选项→信任中心→信任中心设置→宏设置→勾选对应选项。
• 文件格式要求：目标文件必须是.xlsm格式（启用宏的工作簿），.xlsx格式不支持存储宏代码。
• 工作表CodeName说明：VBA编辑器中工作表的代码名称（CodeName）可能和工作表的显示名称不同（比如显示名称是"数据汇总"，但CodeName是"Sheet1"），通过wb.Worksheets("显示名称").CodeName可获取正确的CodeName。

原代码问题解析 #

原代码中wb.VBProject.VBComponents(1)是取工作簿中的第一个VB组件，通常是默认的标准模块（如Module1），并非工作表的专属代码模块，因此无法将宏写入目标工作表的代码窗口。

内容的提问来源于stack exchange，提问作者Bilge Kaan Özkan