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

　　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

　　Set xlTagBook = xlCopyApp.Workbooks.Open(strTagWorkbook)

　　End If

　　Set ExcelSource = xlSrcBook.Worksheets(strSrcSheetName)

　　Set ExcelTarget = xlTagBook.Worksheets(strTagSheetName)

　　ExcelSource.Select

　　ExcelSource.Copy before

　　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

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

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

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

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