If CheckSheet(strSheetName, strWorkBook, xlCreateApp) = False Then

　　Set xlCreateSheet = xlCreateApp.Worksheets.Add

　　xlCreateSheet.Name = strSheetName

　　xlCreateApp.ActiveWorkbook.Save

　　CreateSheet = True

　　Set xlCreateSheet = Nothing

　　Else

　　'MsgBox strSheetName & "工作表已存在!"

　　CreateSheet = False

　　Set xlCreateSheet = Nothing

　　End If

　　ElseIf CreateMethod = 2 Then

　　If CheckSheet(strSheetName, strWorkBook, xlCreateApp) = True Then

　　Set xlCreateSheet = xlCreateApp.Worksheets(strSheetName)

　　xlCreateSheet.Cells.Select

　　xlCreateSheet.Cells.Delete

　　xlCreateApp.ActiveWorkbook.Save

　　CreateSheet = True

　　Set xlCreateSheet = Nothing

　　Else

　　'MsgBox strSheetName & "工作表不存在!"

　　CreateSheet = False

　　Set xlCreateSheet = Nothing

　　End If

　　End If

　　End If

　　End Function

　　'刪除工作表

　　Function DeleteSheet(ByVal strSheetName As String, ByVal strWorkBook As String, xlDeleteApp As Excel.Application) As Boolean

　　Dim i As Integer

　　Dim xlDeleteSheet As Excel.Worksheet

　　If CheckFile(strWorkBook) Then

　　If CheckSheet(strSheetName, strWorkBook, xlDeleteApp) = True Then

　　xlDeleteApp.Workbooks.Open (strWorkBook)

　　If xlDeleteApp.Worksheets.Count = 1 Then

　　MsgBox "工作薄不能全部刪除，" & strSheetName & "是最后一個工作表!"

　　DeleteSheet = False

　　Exit Function

　　End If

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

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

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

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