58问答库 > 求教:如何批量删除不同Excel表中相同名称的Sheet，几百来份呢。

求教:如何批量删除不同Excel表中相同名称的Sheet，几百来份呢。

2024-10-31 04:05:39

推荐回答（1个）

回答（1）：

快就只有写程序，但是没有基础的人写程序的时间不敢估计，就是拿到别人的程序粘贴到自己的电脑上运行成功可能都太艰难，但是你这个需求真的不好找更快的办法了，我给一个代码，祝你好运：

sub 宏1()
    dim wb as workbook, st as worksheet, p$, f$
    p="d:\报告\" '需要处理的文件夹，必须以\结尾，你可能需要修改
    f=dir(p & "*.xls*")
    while f<>""
        set wb=workbooks.open p & f
        for each st in wb.sheets
            if st.name<>"报告页" and st.name<>"站点页" then st.delete
        next st
        wb.save
        wb.close
        f=dir
    wend
end sub