Access VB或VBA獲取EXCEL Application對象

2019-11-19 08:00:00
zstmtony
原創
235
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
分享
北京十一选五基本走势