vb 检测 sheet是否存在

Dim Strsource As String
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Strsource = App.path & "\数据表.xls"
Set xlApp = CreateObject("Excel.application")
Set xlBook = xlApp.Workbooks.open(Strsource)

Dim isExistSheet As Boolean
isExistSheet = False
For Each xlSheet In xlBook.Worksheets
If xlSheet.Name = "表格123" Then
isExistSheet = True
Exit For
End If
Next

if not isExistSheet then
xlbook.sheets.add
xlapp.activesheet.name="表格123"
end if
Set xlSheet = xlBook.Worksheets("表格123")