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

　　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

　　'復制工作表

　　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年上半年計算機等級考試報名時間匯總

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

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

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