[已解决]VBA生成新的工作表

Jared

各位VBA前辈们，请问又VBA在当前工作簿生成一张命名为“汇总”的新表，如果在当前的工作簿中已经有命名为“汇总”的表则删除旧的汇总表，保留新的汇总表。这样的代码改怎么写。
这是我写的代码：Sub CommandButton5_Click()
    Application.DisplayAlerts = False
    Dim sht As Object
    For Each sht In ThisWorkbook.Worksheets
        If sht.Name = "汇总" Then
            sht.Delete
        End If
    Next
    Application.DisplayAlerts = True
    On Error Resume Next
   Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = "汇总"
   With ActiveWorkbook.Sheets("汇总")
运行之后虽然能够实现我上面说的要求，但是会有一张新的空白表生成，运行一次多一张。

最佳答案

月排行榜 / 总排行榜

爱疯

2016-12-14 14:03

原因：并没有在当前激活工作簿中找，而是在加载宏里找的。
解决：去掉ThisWorkbook.后，就会去当前激活工作簿中找。








For Each sht In ThisWorkbook.Worksheets
改成
For Each sht In Worksheets

跳转到最佳答案楼层

爱疯

建议上传"但是会有一张新的空白表生成，运行一次多一张"这个附件

Jared

这是附件，我是把这些代码做成加载宏运行后就出现上面说的问题，不在加载宏里面就没有问题

Jared

爱疯 发表于 2016-12-14 11:13
建议上传"但是会有一张新的空白表生成，运行一次多一张"这个附件

我是把这些代码做成加载宏运行后就出现上面说的问题，不在加载宏里面就没有问题，我以上传附件，希望爱疯版主能帮我看看为什么在加载宏里面就出现问题，非常谢谢

爱疯

原因：并没有在当前激活工作簿中找，而是在加载宏里找的。
解决：去掉ThisWorkbook.后，就会去当前激活工作簿中找。








For Each sht In ThisWorkbook.Worksheets
改成
For Each sht In Worksheets

Jared

爱疯 发表于 2016-12-14 14:03
原因：并没有在当前激活工作簿中找，而是在加载宏里找的。
解决：去掉ThisWorkbook.后，就会去当前激活工 ...

谢谢爱疯版主的帮助，按照你说的改以后解决问题了。ThisWorkbook在那里是什么意思，要在当前激活的工作簿找该怎么表达

爱疯

Jared 发表于 2016-12-14 15:46
谢谢爱疯版主的帮助，按照你说的改以后解决问题了。ThisWorkbook在那里是什么意思，要在当前激活的工作簿 ...

1）表示其中正在运行当前宏代码的工作簿

2）以下两种方式，都可以在当前激活的工作簿找
方式1：For Each sht In ActiveWorkbook.Worksheets
方式2：For Each sht In Worksheets

Jared

爱疯 发表于 2016-12-14 15:59
1）表示其中正在运行当前宏代码的工作簿

2）以下两种方式，都可以在当前激活的工作簿找

谢谢爱疯版主，我明白了