判断Sheet表名是否存在？

兰州人

表名如下：
ShtName = Array("Line", "Circle", "Arc", "Spline", "Polyline", "LWPolyline", "Dim", "Ellipse")
Dim tempSheet As Worksheet
  For ii = 0 To UBound(ShtName)      
      ThisWorkbook.Sheets.Add after:=ActiveSheet
      ActiveSheet.Name = ShtName(ii)
  Next ii
按此程序运行，如果表"Line"等不存在时，上面程序运行正常。
但表"Line"等存在时，上面程序运行不正常。
问

如何判断Sheet表名是否存在？

jiulongpo

不止一个"Line"表需要判断是否存在,所有增加的表都要判断其是否存在.
存在表则跳过,不存在时再增加

ljw990485

ShtName = Array("Line", "Circle", "Arc", "Spline", "Polyline", "LWPolyline", "Dim", "Ellipse")
Dim tempSheet As Worksheet
on Error Resume next
For ii = 0 To UBound(ShtName)   
      Set tempSheet=Sheets(ShtName(ii))  
      if  tempSheet is nothing then
             ThisWorkbook.Sheets.Add after:=ActiveSheet
              ActiveSheet.Name = ShtName(ii)
      endif
Next ii

[ 本帖最后由 ljw990485 于 2009-3-4 21:05 编辑 ]

jymao

先遍历找,如果不存在再添加表...

yagi2008

“ tempSheet is nothing ”这个条件用得好！！

johnny05

自定义函数:
Function WorksheetExists(wb As Workbook, sName As String) As Boolean
Dim s As String
On Error GoTo ErrHandle
s = wb.Worksheets(sName).Name
WorksheetExists = True
Exit Function
ErrHandle:
WorksheetExists = False
End Function
下面是一个例子,检查名为pop的sheet是否存在:
Sub test()
If WorksheetExists(ThisWorkbook, "pop") = False Then
    MsgBox "不存在"
Else
    MsgBox "存在"
End If
End Sub

兰州人

原帖由 ljw990485 于 2009-3-4 21:03 发表
ShtName = Array("Line", "Circle", "Arc", "Spline", "Polyline", "LWPolyline", "Dim", "Ellipse")
Dim tempSheet As Worksheet
on Error Resume next
For ii = 0 To UBound(ShtName)   
      Set tempShee ...

Set tempSheet=Sheets(ShtName(ii))此句不能赋值为Nothing
由于on Error Resume next,Set tempSheet=Sheets(ShtName(ii))不存在(提示下标越界)将越过不执行.实现不了预期目的.

johnny05

试试6楼提及的自定义函数, 我从别人那里学来的, 简单方便

ljw990485

原帖由 兰州人 于 2009-3-5 16:08 发表


Set tempSheet=Sheets(ShtName(ii))此句不能赋值为Nothing
由于on Error Resume next,Set tempSheet=Sheets(ShtName(ii))不存在(提示下标越界)将越过不执行.实现不了预期目的.

你测试了吗？ 别说你自己这样认为！！！
提示下标越界，是你自己的字符串数组的问题

[ 本帖最后由 ljw990485 于 2009-3-5 21:10 编辑 ]

johnny05

可以试试6楼的方法啊