[已解决]请教如何批量删除多个工作簿的第一个sheet表

aduumiwi

每个工作簿逻辑都一样的 我要批量删除每个工作簿的第一个sheet

最佳答案

月排行榜 / 总排行榜

liyizhe000

2017-2-16 16:32

Sub 删除工作簿中的表1()
Dim m, i
Application.DisplayAlerts = False
i = ThisWorkbook.Path
m = Dir(i & "\汇总\*.xlsx")
Workbooks.Open "C:\Users\Administrator\Desktop\汇总" & "\" & m
Workbooks(m).Sheets(1).Delete
Workbooks(m).Close True
Do
m = Dir
If m = "" Then Exit Do
Workbooks.Open "C:\Users\Administrator\Desktop\汇总" & "\" & m
Workbooks(m).Sheets(1).Delete
Workbooks(m).Close True
Loop
Application.DisplayAlerts = True
End Sub

跳转到最佳答案楼层

liyizhe000

Sub 删除工作簿中的表1()
Dim m, i
Application.DisplayAlerts = False
i = ThisWorkbook.Path
m = Dir(i & "\汇总\*.xlsx")
Workbooks.Open "C:\Users\Administrator\Desktop\汇总" & "\" & m
Workbooks(m).Sheets(1).Delete
Workbooks(m).Close True
Do
m = Dir
If m = "" Then Exit Do
Workbooks.Open "C:\Users\Administrator\Desktop\汇总" & "\" & m
Workbooks(m).Sheets(1).Delete
Workbooks(m).Close True
Loop
Application.DisplayAlerts = True
End Sub

aduumiwi

liyizhe000 发表于 2017-2-16 16:32
Sub 删除工作簿中的表1()
Dim m, i
Application.DisplayAlerts = False

这个如果我放在一个文件夹 我直接选择这个文件夹删除怎么操作，你这个我不知道怎么操作

aduumiwi

各位大神  求指教啊

liyizhe000

aduumiwi 发表于 2017-2-23 13:39
这个如果我放在一个文件夹 我直接选择这个文件夹删除怎么操作，你这个我不知道怎么操作

桌面上建个汇总文件夹，把要删除的表格全部都复制进去，再在桌面新建一个excel表，把这段代码复制进去运行，新建的工作表要放到文件夹外边

liyizhe000

文件夹的名字：汇总
里边的表格都是xlsx格式的或者你自己修改下代码，没有附件，只能这么给你解释了，希望对你有所帮助

aduumiwi

liyizhe000 发表于 2017-2-23 14:37
文件夹的名字：汇总
里边的表格都是xlsx格式的或者你自己修改下代码，没有附件，只能这么给你解释了，希望 ...

非常感谢，请问我入门从何做起啊，我有编程基础的，工作中运用excel比较多，所以自己可以编写就更完美了

liyizhe000

aduumiwi 发表于 2017-2-24 10:03
非常感谢，请问我入门从何做起啊，我有编程基础的，工作中运用excel比较多，所以自己可以编写就更完美了
...

建议买一本书，兰色版主的excel VBA 基础入门（第二版），有光盘，结合视频学习，这本书我也正在学习中，非常不错！