兩種方案
1，第一種，當參數是workbook時
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
或者當第一個參數是文件名的時候
Function WorksheetExists(wb As String, sName As String) As Boolean
? Dim s As String
? On Error GoTo ErrHandle
???? Windows(GetNoPathFile(wb)).Activate
???? ActiveWorkbook.Sheets(sName).Select
???? WorksheetExists = True
???? Exit Function
? ErrHandle:
???? WorksheetExists = False
End Function