Excel自动化时如何处理VBA触发的带输入文本框的弹窗？

核心思路是在原有窗口遍历逻辑的基础上，新增对Edit类输入控件的查找和文本填充逻辑，所有操作通过Windows消息机制后台完成，无需将Excel切到前台。

修改后的工具类代码 #

import time
import win32gui
import win32con
from threading import Thread, Event

class InputBoxHandler(Thread):

    def __init__(self, title:str, interval:int, input_content:str = ""):
        Thread.__init__(self)
        self._title = title 
        self._interval = interval 
        self._input_content = input_content
        self._stop_event = Event()   

    def stop(self):
        '''Stop thread.'''
        self._stop_event.set()

    @property
    def stopped(self):
        return self._stop_event.is_set()

    def run(self):
        while not self.stopped:
            try:
                time.sleep(self._interval)
                self._handle_inputbox()
            except Exception as e:
                print(e, flush=True)

    def _handle_inputbox(self):
        # 按标题查找顶层窗口
        hwnd = win32gui.FindWindow(None, self._title)
        if not hwnd:
            return
        
        # 查找输入框控件（类名为Edit）
        h_edit = win32gui.FindWindowEx(hwnd, None, 'Edit', None)
        if h_edit:
            # 给输入框填充指定内容，后台发送消息无需前台激活
            win32gui.SendMessage(h_edit, win32con.WM_SETTEXT, 0, self._input_content)
        
        # 查找OK按钮，适配中英文系统按钮文本
        h_btn = win32gui.FindWindowEx(hwnd, None, 'Button', "确定")
        if not h_btn:
            h_btn = win32gui.FindWindowEx(hwnd, None, 'Button', "OK")
        if not h_btn:
            return

        # 点击按钮        
        win32gui.PostMessage(h_btn, win32con.WM_LBUTTONDOWN, win32con.MK_LBUTTON, 0)
        time.sleep(0.1)
        win32gui.PostMessage(h_btn, win32con.WM_LBUTTONUP, 0, 0)
        time.sleep(0.1)

主调用代码 #

from InputBoxHandler import InputBoxHandler
import xlwings as xw
import time

# 第三个参数传入你要填到输入框的内容，留空就传空字符串
listener1 = InputBoxHandler("test", 1, "你要输入的内容")
listener1.start()
wb = xw.Book(r'test.xlsm')
for i in range(5):
    time.sleep(5)
    # 运行VBA宏
    wb.macro('Rectangle2_Click')()
     
# 最终关闭子线程
listener1.stop()

注意事项 #

• 传入的窗口标题需要和VBA代码里InputBox定义的标题完全一致，否则会找不到窗口
• 所有操作都是通过Windows原生消息机制实现，完全不依赖前台激活，Excel后台运行也可以正常执行
• 如果需要每次弹窗输入不同内容，可以新增一个修改_input_content属性的公共方法，在循环调用宏的时候动态修改输入值

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