office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Access VB或VBA穫取EXCEL Application對象

2019-11-19 08:00:00
zstmtony
原創
1300
Access VB6或VBA穫取EXCEL對象
 
一、Access或VB6穫取EXCEL的application對象的方法
如果EXCEL已經被打開瞭,將返迴當前已打開的Excel的Applciationc對象,如果沒有任何EXCEL打開,會創建一箇新的Excel.applcation 

Public Function CreateExcel( ) As object

        Dim xlapp as  Excel.Application

        on Error Resume Next

        set xlapp =  GetObject(, "Excel.Application") 

        If Err.number>0 then

         Set   xlapp =CreateObject("Excel.Application")

        End If

        CreateExcel = Xlapp

    End Function

二、VBA 穫取EXCEL對象或者application方法

該方法如果EXCEL已經有打開,就會將當前applciation 返迴,如果沒有任何EXCEL打開,會創建一箇新的Excel.applcation 


Function CreateExcel() As  Object

        Dim xlapp As Excel.Application

        On Error GoTo err_handle:

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

        Set CreateExcel = xlapp

        Exit Function

err_handle:

        Set xlapp = New Excel.Application

        Set CreateExcel = xlapp

        Exit Function

End Function
分享