2011年計(jì)算機(jī)等級二級VB輔導(dǎo)知識技巧總結(jié)（26）(3)

    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 & “是最后一個(gè)工作表！”
    DeleteSheet = False
    Exit Function
    End If