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

　　'检测工作表

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