如何使用Python在指定的已打开工作表上运行宏

问题背景 #

已实现Python调用Excel宏，但宏会在任意打开的工作表上运行，需要指定宏仅在刚打开的最新CSV文件对应的工作表执行。

现有代码 #

第一部分：打开最新CSV文件 #

import glob
import os

list_of_files = glob.glob('C:/Users/Martina/Downloads/*.csv')
latest_csv_file = max(list_of_files, key=os.path.getctime)
print(latest_csv_file)
file_name = latest_csv_file
os.startfile(file_name)

第二部分：调用宏 #

import xlwings as xw
from os import listdir
from os.path import isfile, join
import sys

wb = xw.books.open(r'C:\Automation\Resources\MAcro codes.xlsb')
macroname = wb.macro('Iwebsite')
macroname()

def python_macro(wb_path, app):
    # 可选：验证文件类型为xls*、csv等
    wb = app.books.open(wb_path)
    sheet = wb.sheets.active

    # 下方用python+xlwings重写宏逻辑
    print(sheet.range('A1').value)

with xw.App() as app:
    for arg in sys.argv[1:]:
        path = join(os.getcwd(), arg)

        if os.path.isdir(path):
            # 可选：处理子目录
            files = [f for f in listdir(path) if isfile(join(path, f))]
            for file in files:
                python_macro(file, app)
        elif os.path.isfile(path):
            python_macro(path, app)

问题核心 #

1. 使用os.startfile()打开CSV无法获取对应Excel工作簿对象，宏无法定位目标工作表
2. 调用宏时未指定目标工作簿，宏默认操作当前激活的工作表，随机性强

解决方案 #

优化思路 #

• 用xlwings直接打开CSV，获取工作簿对象以精准定位
• 调用宏前先激活目标工作簿，或给宏传递目标工作簿参数

优化后完整代码 #

import glob
import os
import xlwings as xw

# 1. 获取并通过xlwings打开最新CSV，拿到工作簿对象
list_of_files = glob.glob('C:/Users/Martina/Downloads/*.csv')
latest_csv_file = max(list_of_files, key=os.path.getctime)
print(latest_csv_file)
csv_wb = xw.Book(latest_csv_file)

# 2. 打开宏工作簿并调用宏
macro_wb = xw.Book(r'C:\Automation\Resources\MAcro codes.xlsb')
macroname = macro_wb.macro('Iwebsite')

# 方案A：若宏支持接收工作簿参数（推荐）
# 需对应修改VBA宏：Sub Iwebsite(targetWb As Workbook) ... End Sub
# macroname(csv_wb)

# 方案B：若宏不支持参数，先激活目标工作簿再调用
csv_wb.activate()
macroname()

宏代码适配（可选） #

如果原宏未针对指定工作簿编写，需修改VBA代码确保操作目标工作表：

Sub Iwebsite()
    Dim targetWb As Workbook
    Set targetWb = ActiveWorkbook ' 若用方案A则改为接收参数：Set targetWb = 参数
    
    ' 后续操作都基于targetWb，示例：
    targetWb.Sheets(1).Range("A1").Value = "处理完成"
End Sub

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