close excel by keyword 根据关键字关闭 excel 窗口 xlwings 方式实现

根据标题关键字关闭 workbook,如果没有打开的 workbook 则退出 excel

xlwings 方式实现 更方便快捷

python 复制代码
def close_excel_by_keyword(keyword):
    if '~$' in keyword:
        return
    app = xw.apps.active
    for workbook in app.books:
        if keyword in workbook.name:
            workbook.close()

file_list = os.listdir(mb51_dir)
    print('file list', file_list)
   
    while any('~$' in x for x in file_list):
        file_list = os.listdir(mb51_dir)
        for file in file_list:
            close_excel_by_keyword(file)
            time.sleep(1)
python 复制代码
import win32com.client
import win32gui

def close_excel_by_keyword(keyword):
    # 获取当前所有窗口的句柄
    hwnds = []
    win32gui.EnumWindows(lambda hwnd, param: param.append(hwnd), hwnds)

    # 遍历窗口句柄,查找包含关键字的 Excel 窗口并关闭
    for hwnd in hwnds:
        text = win32gui.GetWindowText(hwnd)
        if keyword in text:
            excel = win32com.client.Dispatch("Excel.Application")
            try:
                workbooks = excel.Workbooks
                for workbook in workbooks:
                    if keyword in workbook.Name:
                        workbook.Close(False)
            except Exception as e:
                pass

    try:
        excel = win32com.client.GetActiveObject("Excel.Application")
        workbooks = excel.Workbooks
        print(workbooks.Count)
        if workbooks.Count == 0:
            # 如果没有打开的工作簿,关闭 Excel.Application
            excel.Quit()
    except:
        # 如果没有 Excel.Application 实例,不需要关闭
        pass

def main():
    keyword = "tw"  # 替换为你要查找的关键字
    close_excel_by_keyword(keyword)

if __name__ == "__main__":
    main()
相关推荐
静听松涛13311 小时前
提示词注入攻击的防御机制
前端·javascript·easyui
晚风予星11 小时前
简记 | 一个基于 AntD 的高效 useDrawer Hooks
前端·react.js·设计
栗子叶11 小时前
网页接收服务端消息的几种方式
前端·websocket·http·通信
又是忙碌的一天12 小时前
SpringMVC响应
java·服务器·数据库
菩提小狗12 小时前
Sqli-Labs Less-3 靶场完整解题流程解析-豆包生成
前端·css·less
澄江静如练_12 小时前
优惠券提示文案表单项(原生div写的)
前端·javascript·vue.js
C_心欲无痕12 小时前
ts - 关于Object、object 和 {} 的解析与区别
开发语言·前端·javascript·typescript
FOREVER-Q12 小时前
Windows 下通过 SSH 替代 Gitee OAuth Token 推送配置指南
运维·服务器
L Jiawen12 小时前
【Windows 系统】Chrome浏览器退出登录状态失效
前端·chrome·windows
IT_陈寒12 小时前
Java并发编程实战:从入门到精通的5个关键技巧,让我薪资涨了40%
前端·人工智能·后端