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

　　End Function

　　'關(guān)閉Excel應(yīng)用

　　Function CloseExcelApp(xlApp As Object)

　　On Error Resume Next

　　xlApp.Quit

　　Set xlApp = Nothing

　　End Function

　　'建立Excel應(yīng)用

　　Function CreateExcelApp(QuitApp As Boolean) As Object

　　On Error Resume Next

　　Dim xlObject As Object

　　If CheckExcel Then

　　Set xlObject = GetObject(, "Excel.Application")

　　If err.Number <> 0 Then

　　Set xlObject = Nothing

　　Set xlObject = CreateObject("Excel.Application")

　　CreateExcelApp = xlObject

　　Else

　　If QuitApp Then

　　xlObject.Quit

　　Set xlObject = Nothing

　　Set xlObject = CreateObject("Excel.Application")

　　End If

　　CreateExcelApp = xlObject

　　End If

　　End If

　　End Function

　　'檢測EXCEL環(huán)境

　　Function CheckExcel() As Boolean

　　Dim xlCheckApp As Object

　　Set xlCheckApp = CreateObject("Excel.Application")

　　If xlCheckApp Is Nothing Then

　　MsgBox "對不起，系統(tǒng)未檢測到EXCEL安裝，請重新檢查EXCEL是否被正確安裝!"

　　CheckExcel = False

　　xlCheckApp.Quit

　　Set xlCheckApp = Nothing

　　Exit Function

　　Else

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

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

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

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