Office中国论坛/Access中国论坛

标题: 如何判断EXCEL中存在某个名称的表 [打印本页]

---

作者: lsxhoho    时间: 2010-8-28 12:03
标题: 如何判断EXCEL中存在某个名称的表
想知道如何用代码判断是否存在某个名称的表,以便对该表进行操作.比如我想看是否有个表叫"test",如果有的话就将其改名为testOK", 如果没有就增加一个"test"表.

谢谢各位大大了.

---

作者: pureshadow    时间: 2010-8-29 19:42
dim MyS as long
for MyS = 1 to sheets.count
  if sheets(MyS).name = "test" then
    sheets(MyS).name = "testOK"
  end if
next

---

作者: liyh67    时间: 2010-8-29 19:45
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

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3