'檢測工作表

　　Function CheckSheet(ByVal strSheet As String, ByVal strWorkBook As String, xlCheckApp As Excel.Application) As Boolean

　　Dim L As Integer

　　Dim CheckWorkBook As Excel.Workbook

　　If CheckFile(strWorkBook) And strSheet <> "" And Not IsNull(strSheet) Then

　　For L = 1 To xlCheckApp.Workbooks.Count

　　If GetPath(xlCheckApp.Workbooks(L).Path) & xlCheckApp.Workbooks(L).Name = strWorkBook Then

　　Set CheckWorkBook = xlCheckApp.Workbooks(L)

　　Exit For

　　End If

　　Next L

　　Set CheckWorkBook = xlCheckApp.Workbooks.Open(strWorkBook)

　　For L = 1 To CheckWorkBook.Worksheets.Count

　　If CheckWorkBook.Worksheets(L).Name = Trim(strSheet) Then

　　CheckSheet = True

　　Exit For

　　End If

　　Next L

　　Else

　　MsgBox "工作表不存在，可能是由文件名或工作表名引起的!"

　　CheckSheet = False

　　End If

　　End Function

　　'建立工作表

　　'CreateMethod:1追加

　　'CreateMethod:2覆蓋

　　Function CreateSheet(ByVal strSheetName As String, ByVal strWorkBook As String, ByVal CreateMethod As Integer, xlCreateApp As Excel.Application) As Boolean

　　Dim xlCreateSheet As Excel.Worksheet

　　If CheckFile(strWorkBook) Then

　　xlCreateApp.Workbooks.Open (strWorkBook)

　　If CreateMethod = 1 Then

　　2011年上半年計算機等級考試報名時間匯總

　　2011計算機等級考試二級VB考點及習題匯總

　　2011年計算機等級考試二級VB基礎教程匯總

　　2011計算機等考二級VB輔導知識技巧匯總