[已解决]请教：如何删除指定工作簿中的某个工作表

ww0000 · 发表于 2010-12-14 15:23

如何删除指定工作簿中的某个工作表

如我要利用一个工作表中的宏来删除文件“调用数据”中叫“目录”的工作表，再自动保存并关闭！

写了一个不行。谢谢

Sub Macro2()
    Workbooks.Open ThisWorkbook.Path & "\调用数据.xls"
For Each sh In Worksheets
If sh.Name = "目录" Then
sh.Delete
    Workbook.Save
    Workbook.Close
    Workbook.Quit
   End If
    Next sh
End Sub

最佳答案

月排行榜 / 总排行榜

迎客松

2010-12-16 20:22

Sub Macro2()
Application.DisplayAlerts = False
    Workbooks.Open ThisWorkbook.Path & "\调用数据.xls"
For Each sh In Worksheets
    If sh.Name = "目录" Then
        sh.Delete
        Workbooks("调用数据.xls").Save
        Workbooks("调用数据.xls").Close
        Exit For

End If
Next
Application.DisplayAlerts = True
End Sub

跳转到最佳答案楼层

ww0000 · 发表于 2010-12-14 15:26

删除指定工作簿中的某个工作表中的固定内容又该如何写代码?谢了

桂林灬迷失 · 发表于 2010-12-14 16:08

[em06][em06]

ww0000 · 发表于 2010-12-14 16:55

自己项一下

ww0000 · 发表于 2010-12-15 07:52

老师还没看到呀!?

ww0000 · 发表于 2010-12-15 09:49

50个金币请教!

ww0000 · 发表于 2010-12-15 15:55

真的没人会呀?不会吧?高手们!出出招吧!

ww0000 · 发表于 2010-12-16 11:39

此问题不受欢迎?

迎客松 · 发表于 2010-12-16 20:22

Sub Macro2()
Application.DisplayAlerts = False
    Workbooks.Open ThisWorkbook.Path & "\调用数据.xls"
For Each sh In Worksheets
    If sh.Name = "目录" Then
        sh.Delete
        Workbooks("调用数据.xls").Save
        Workbooks("调用数据.xls").Close
        Exit For

End If
Next
Application.DisplayAlerts = True
End Sub

ww0000 · 发表于 2010-12-18 14:25

楼上的不行呀!没反应

		自动登录	找回密码
密码			注册

[已解决]请教：如何删除指定工作簿中的某个工作表

浏览过的版块