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

推荐回答

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

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    wendend sub