Function ShtExists(shtname)
    '判断Sheet表是否存在
    On Error Resume Next
    Dim s
    Err.Clear
    s = Sheets(shtname & "").name
    
    If Err.Number = 0 Then
        ShtExists = True
    Else
        ShtExists = False
    End If
End Function