[已解决]VBA判断当前工作薄中指定工作表是否存在

yjwdjfqb

VBA判断当前工作薄中指定工作表是否存在

Sub 判断工作表是否存在()
    Dim sht As Worksheet
    For Each sht In Worksheets
        
        If sht.Name = "报表" Then
            MsgBox "有此工件表", , "提示"
        
        Else
            MsgBox "无此工作表", , "提示"
        End If
   
    Next
End Sub

上面的代码不知道哪儿错了，请老师们帮我修改下，谢谢大家了！
VBA判断当前工作薄中指定工作表是否存在.rar (5.39 KB, 下载次数: 7)

2015-1-15 02:52 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

adders

2015-1-15 04:42

Sub 判断工作表是否存在()
    Dim sht As Worksheet

    For Each sht In Worksheets
        If sht.Name = "报表" Then
            MsgBox "有此工件表", , "提示"
            Exit Sub
        End If
    Next
           
    MsgBox "无此工作表", , "提示"
End Sub

跳转到最佳答案楼层

adders

Sub 判断工作表是否存在()
    Dim sht As Worksheet

    For Each sht In Worksheets
        If sht.Name = "报表" Then
            MsgBox "有此工件表", , "提示"
            Exit Sub
        End If
    Next
           
    MsgBox "无此工作表", , "提示"
End Sub

zxc1152468

Sub 判断工作表是否存在()
    Dim sht As Worksheet
    For Each sht In Worksheets
        
        If sht.Name = "报表" Then
            MsgBox "有此工件表", , "提示"
        Exit Sub
        Else
            MsgBox "无此工作表", , "提示"
        End If
   
    Next
End Sub
当找到工作表后就应该跳出程序用 exit sub 跳出程序，否则会继续往下执行，则又会提示无工作表

hyjking618

Sub 判断工作表是否存在()
    Dim sht As Worksheet
    For Each sht In Worksheets
        
        If sht.Name = "报表" Then
            MsgBox "有此工件表", , "提示"
        Exit Sub
        Else
            MsgBox "无此工作表", , "提示"
        End If
   
    Next
End Sub

爱疯

zxc1152468 发表于 2015-1-15 08:14
Sub 判断工作表是否存在()
    Dim sht As Worksheet
    For Each sht In Worksheets

当工作表很多时：

3#会提示多次
2#只提示1次

yjwdjfqb

老师们，还是不行，还是要提示几次
请老师斧正下，谢谢大家了！

爱疯

如果你用了2楼的，还提示多次，那就把这个还提示多次的附件发上来吧

yjwdjfqb

zxc1152468 发表于 2015-1-15 08:14
Sub 判断工作表是否存在()
    Dim sht As Worksheet
    For Each sht In Worksheets

如果已经存在这个名称的工作表，
还是会提示二次，此工作表不存在
请老师斧正下，谢谢老师了！

ppp710715

2楼正解