如何判断EXCEL中存在某个名称的表

lsxhoho

想知道如何用代码判断是否存在某个名称的表,以便对该表进行操作.比如我想看是否有个表叫"test",如果有的话就将其改名为testOK", 如果没有就增加一个"test"表.

谢谢各位大大了.

pureshadow

dim MyS as long
for MyS = 1 to sheets.count
  if sheets(MyS).name = "test" then
    sheets(MyS).name = "testOK"
  end if
next

liyh67

Sub test()
    Dim sh As Worksheet
    On Error GoTo er
    Set sh = Sheets("test")
    sh.Name = "testOK"
    Exit Sub
er:
    Sheets.Add
    ActiveSheet.Name = "test"
End Sub