兩種方案
1，第一種，當(dāng)參數(shù)是workbook時(shí)
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
或者當(dāng)?shù)谝粋€(gè)參數(shù)是文件名的時(shí)候
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