Set xlTagBook = xlCopyApp.Workbooks.Open(strTagWorkbook)

　　End If

　　Set ExcelSource = xlSrcBook.Worksheets(strSrcSheetName)

　　Set ExcelTarget = xlTagBook.Worksheets(strTagSheetName)

　　ExcelSource.Select

　　ExcelSource.Cells.Copy

　　ExcelTarget.Select

　　ExcelTarget.Paste

　　xlCopyApp.Application.CutCopyMode = xlCopy

　　If strSrcWorkBook = strTagWorkbook Then

　　xlTagBook.Save

　　xlSrcBook.Save

　　Else

　　xlTagBook.Save

　　End If

　　Set ExcelSource = Nothing

　　Set ExcelTarget = Nothing

　　Set xlSrcBook = Nothing

　　Set xlTagBook = Nothing

　　CopySheet = True

　　End If

　　End Function

　　'復(fù)制工作表

　　Function ExcelCopySheet(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

　　2011年上半年計(jì)算機(jī)等級(jí)考試報(bào)名時(shí)間匯總

　　2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總

　　2011年計(jì)算機(jī)等級(jí)考試二級(jí)VB基礎(chǔ)教程匯總

　　2011計(jì)算機(jī)等考二級(jí)VB輔導(dǎo)知識(shí)技巧匯總