2011年計算機等考二級VB輔導知識技巧總結(26)

　　xlDeleteApp.Worksheets(strSheetName).Delete

　　xlDeleteApp.ActiveWorkbook.Save

　　DeleteSheet = True

　　Else

　　DeleteSheet = False

　　End If

　　End If

　　End Function

　　'復制工作表

　　Function CopySheet(ByVal strSrcSheetName As String, ByVal strSrcWorkBook As String, ByVal strTagSheetName As String, ByVal strTagWorkbook As String, xlCopyApp As Excel.Application) As Boolean

　　Dim xlSrcBook As Excel.Workbook

　　Dim xlTagBook As Excel.Workbook

　　Dim ExcelSource As Excel.Worksheet

　　Dim ExcelTarget As Excel.Worksheet

　　Dim Result As Boolean

　　If CheckFile(strSrcWorkBook) = False Or CheckFile(strTagWorkbook) = False Then

　　Set ExcelSource = Nothing

　　Set ExcelTarget = Nothing

　　Set xlSrcBook = Nothing

　　Set xlTagBook = Nothing

　　CopySheet = False

　　Exit Function

　　Else

　　Set xlSrcBook = xlCopyApp.Workbooks.Open(strSrcWorkBook)

　　If strSrcWorkBook = strTagWorkbook Then

　　If strSrcSheetName = strTagSheetName Then

　　Set ExcelSource = Nothing

　　Set ExcelTarget = Nothing

　　Set xlSrcBook = Nothing

　　Set xlTagBook = Nothing

　　CopySheet = False

　　Exit Function

　　End If

　　Set xlTagBook = xlSrcBook

　　Else

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

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

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

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