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

Question

我只想要报告页和站点页和勘测报告这两个Sheet，好多份报告求简便方法

Answer 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追问

哪错了

追答

set wb=workbooks.open (p & f)

追问

请问我标红的那，是改成我200份报告所在的文件夹的名称吗?

追答

你的文件在哪里？如果是 C:\123\文件 下，就修改为：

p = " C:\123\文件\"

明白了吗，如果不明白，请用把你的电脑打开这些文件的文件夹，然后点【地址栏】，再复制，例如：