Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2884|回复: 4

[已解决]请高手指教:判断指定的文件名是否存在出错?

[复制链接]
发表于 2014-8-8 17:04 | 显示全部楼层 |阅读模式
本帖最后由 bzjwcws 于 2014-8-8 17:32 编辑

各位大侠,下面的代码我想达到如下目的:判断工作簿中是否有“数据汇总”这个工作表,如果有,就执行call test,如果没有就提示“温馨提示:程序检测到无“数据汇总”工作表!"。可在工作簿中有“数据汇总”工作表的情况下,仍然提示“温馨提示:程序检测到无“数据汇总”工作表!",而不运行call test?请大侠们赐教,谢谢!
Private Sub CommandButton1_Click()
    Dim y As Integer
    For y = 1 To Sheets.Count
    If Sheets(y).Name = "数据汇总" Then
    Call test
    Else
    MsgBox "温馨提示:程序检测到无“数据汇总”工作表!"
    Exit Sub
    End If
    Next
End Sub
最佳答案
2014-8-8 17:11
Private Sub CommandButton1_Click()
    Dim y%, s$
   
    s = "数据汇总"
    For i = 1 To Sheets.Count
        If Sheets(i).Name = s Then s = "": Exit For
    Next
    If s = "" Then Call test Else MsgBox "温馨提示:程序检测到无“" & s & "”工作表!"
End Sub

测试.rar

9.96 KB, 下载次数: 5

发表于 2014-8-8 17:11 | 显示全部楼层    本楼为最佳答案   
Private Sub CommandButton1_Click()
    Dim y%, s$
   
    s = "数据汇总"
    For i = 1 To Sheets.Count
        If Sheets(i).Name = s Then s = "": Exit For
    Next
    If s = "" Then Call test Else MsgBox "温馨提示:程序检测到无“" & s & "”工作表!"
End Sub
回复

使用道具 举报

发表于 2014-8-8 17:13 | 显示全部楼层
  1. Private Sub CommandButton1_Click()
  2. Dim y As Integer
  3. For y = 1 To Sheets.Count
  4.     If Sheets(y).Name = "数据汇总" Then
  5.         Call test: Exit Sub
  6.     ElseIf y = Sheets.Count Then
  7.         MsgBox "温馨提示:程序检测到无“数据汇总”工作表!": Exit Sub
  8.     End If
  9. Next
  10. End Sub
复制代码
逻辑思路问题

评分

参与人数 1 +1 收起 理由
bzjwcws + 1 很给力!

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2014-8-8 17:31 | 显示全部楼层
非常感谢!两个运行都很好,都是最佳答案,可给了第一个,第二个就不能给了!非常抱歉!
回复

使用道具 举报

发表于 2014-8-8 19:11 | 显示全部楼层
代码写的都不错!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 01:35 , Processed in 0.579694 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表