【Python】批量删除Excel中的sheet

查看 108|回复 9
作者:铅笔0l   
背景:
本人为python小白,最近在自学python。
我媳妇儿公司有张Excel表格,每天都会新建一个sheet记录数据,大致如下图。


企业微信截图_17200583446507.png (18.54 KB, 下载次数: 0)
下载附件
2024-7-4 09:57 上传

媳妇儿说我学了这么久,让我写个程序,批量删除指定月份的sheet。
我一寻思这么简单,遂找到GPT代写。(实际是还在自学中,不会写。)
主要功能:
批量按月删除Excel中使用(月份+日期)命名的sheet。
已知问题:
使用PyInstaller打包成.exe文件360会报毒(关闭360正常运行),而且打包后文件较大。

[color=]各位大佬是否有解决方法,求教。



运行截图:


企业微信截图_1720059454436.png (123.49 KB, 下载次数: 0)
下载附件
2024-7-4 10:16 上传

代码:
[Python] 纯文本查看 复制代码import tkinter as tk
from tkinter import filedialog, messagebox
import openpyxl
import re
def delete_sheets_by_month(file_path, month):
    try:
        # 打开Excel文件
        workbook = openpyxl.load_workbook(file_path)
        
        # 获取所有sheet名称
        sheet_names = workbook.sheetnames
        
        # 定义日期格式的正则表达式(假设日期格式为X月XX日)
        date_pattern = re.compile(r'^(\d+)月(\d+)日$')
        
        # 遍历所有sheet
        for sheet_name in sheet_names:
            match = date_pattern.match(sheet_name)
            if match:
                sheet_month = int(match.group(1))
               
                # 检查sheet的月份是否与用户输入的月份匹配
                if sheet_month == month:
                    workbook.remove(workbook[sheet_name])
        
        # 保存修改后的Excel文件
        workbook.save(file_path)
        messagebox.showinfo("成功", "已成功删除指定月份的sheet!")
    except Exception as e:
        messagebox.showerror("错误", f"发生错误: {str(e)}")
def browse_file():
    file_path = filedialog.askopenfilename(filetypes=[("Excel files", "*.xlsx")])
    if file_path:
        file_entry.delete(0, tk.END)
        file_entry.insert(0, file_path)
def start_deletion():
    file_path = file_entry.get()
    month = month_entry.get()
    if file_path and month.isdigit() and 1

文件, 批量

liuhaigang12   

搞个虚拟环境 安装这个程序需要的包 再打包就会小很多
boy666   

直接用vba省事,弹窗选择月份,顺手GPT写了个:
[Asm] 纯文本查看 复制代码Sub DeleteSheetsByMonth()
    Dim monthInput As String
    Dim ws As Worksheet
    Dim wsName As String
    Dim response As VbMsgBoxResult
    Dim foundSheet As Boolean
   
    ' 弹出输入框输入月份
    monthInput = InputBox("请输入要删除的月份(例如:1表示1月,2表示2月,以此类推):", "输入月份")
   
    ' 检查输入是否有效
    If monthInput = "" Or Not IsNumeric(monthInput) Or Len(monthInput) > 2 Or CInt(monthInput)  12 Then
        MsgBox "输入的月份无效,请输入正确的月份(1到12之间的数字)。", vbExclamation
        Exit Sub
    End If
    ' 确保月份输入为一位或两位数,并且前面没有0
    monthInput = CStr(CInt(monthInput))
    foundSheet = False
   
    ' 遍历所有工作表,检查是否存在以输入月份开头的工作表
    For Each ws In ThisWorkbook.Sheets
        wsName = ws.Name
        If Left(wsName, Len(monthInput)) = monthInput Then
            foundSheet = True
            Exit For
        End If
    Next ws
   
    ' 如果找到以输入月份开头的工作表,询问是否删除
    If foundSheet Then
        response = MsgBox("是否删除所有以 " & monthInput & " 开头的工作表?", vbYesNo + vbQuestion, "确认删除")
        If response = vbYes Then
            ' 遍历并删除所有以输入月份开头的工作表
            For Each ws In ThisWorkbook.Sheets
                wsName = ws.Name
                If Left(wsName, Len(monthInput)) = monthInput Then
                    Application.DisplayAlerts = False
                    ws.Delete
                    Application.DisplayAlerts = True
                End If
            Next ws
            MsgBox "已删除所有以 " & monthInput & " 开头的工作表。", vbInformation
        Else
            MsgBox "操作已取消。", vbInformation
        End If
    Else
        MsgBox "没有找到以 " & monthInput & " 开头的工作表。", vbInformation
    End If
End Sub
ysjd22   

ai确实能帮不少忙
铅笔0l
OP
  


liuhaigang12 发表于 2024-7-4 10:24
搞个虚拟环境 安装这个程序需要的包 再打包就会小很多

使用虚拟环境打包还是报毒,不过文件体积小了  谢谢大佬。
铅笔0l
OP
  


ysjd22 发表于 2024-7-4 10:32
ai确实能帮不少忙

对,这个代码我要自主写估计最快也得半天。
GPT一下就写完了,加上调试测试也就半个小时。
flylujun   

学习了一些知识
铅笔0l
OP
  


boy666 发表于 2024-7-4 10:34
直接用vba省事,弹窗选择月份,顺手GPT写了个:
[mw_shl_code=asm,true]Sub DeleteSheetsByMonth()
    D ...

不会VBA,最近在自学python,拿来练练手。哈哈哈
boy666   


boy666 发表于 2024-7-4 10:34
直接用vba省事,弹窗选择月份,顺手GPT写了个:
[mw_shl_code=asm,true]Sub DeleteSheetsByMonth()
    D ...

马小天   


boy666 发表于 2024-7-4 10:34
直接用vba省事,弹窗选择月份,顺手GPT写了个:
[mw_shl_code=asm,true]Sub DeleteSheetsByMonth()
    D ...

怎么提问的啊,学习一下
您需要登录后才可以回帖 登录 | 立即注册

返回顶部