有的VBA过程需要把数据写入到指定的Sheet中,这时候就要先判断这个指定的Sheet是否存在,可以使用如下函数SheetExist:
Function SheetExist(SheetName As String) As Boolean
Rem 功能:指定工作表名,测试该工作表是否存在
Rem 参数说明:
Rem SheetName:要检测是否存在的Sheet名
On Error Resume Next
SheetExist = IIf(Sheets(SheetName) Is Nothing, False, True)
End Function