2011年计算机等考二级VB辅导知识技巧总结(26)

　　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辅导知识技巧汇总