判断指定名称的工作表是否存在！

sunmon123

使用什么语句能够判断指定名称的工作表是否存在！

shuiyuan

Function sySheetYN(sName As String) Dim SH As Worksheet Application.Volatile For Each SH In Worksheets If SH.Name = sName Then sySheetYN = "该工作表存在" Exit Function End If Next sySheetYN = "该工作表不存在" End Function

figfig

'新思维

Sub fig()

aaa = "SHEET1" On Error GoTo ccc Sheets(aaa).Calculate

MsgBox "存在" Exit Sub ccc: MsgBox "不存在" End Sub

[此贴子已经被作者于2005-5-31 21:55:18编辑过]

shuiyuan

有创意

tycxp

shuiyuan 发表于 2005-5-31 21:26
Function sySheetYN(sName As String)
    Dim SH As Worksheet
    Application.Volatile

a=Len(ThisWorkbook.Names(TheName).Name) <> 0
若a=true 则不存在 a=false则存在

tycxp

a=Len(ThisWorkbook.Names(TheName).Name) <> 0
if a=true then msgbox("不存在")  
if a=false then msgbox("存在")

tycxp

也可以用自定义的函数来判定
Function NameExists(TheName As String) As Boolean
    On Error Resume Next
    NameExists = Len(ThisWorkbook.Names(TheName).Name) <> 0
End Function

ctp_119

sub ctp_119()
dim sh as worksheet
on error resume next
set sh=sheets("工作表名")
if Err.Number > 0 then
msgbox "不存在"
else
msgbox "存在"
end if
err.clear
on error goto 0
end sub

zouyuejian

[code=vb]Public Function WSExist(ByVal wsname As String) As Boolean
'wsname为工作表的名字。如果本工作薄有工作表的名字与之相同，WSExist返回True
Dim ws As Worksheet
    On Error Resume Next
    Set ws = ThisWorkbook.Worksheets(wsname)
    WSExist = Not (ws Is Nothing)
End Function[/code]

mythqiu

tycxp 发表于 2013-8-9 16:21
a=Len(ThisWorkbook.Names(TheName).Name)  0
if a=true then msgbox("不存在")  
if a=false then msgbo ...

学习了，这是个是名称是否存在吧