Access VB或VBA获取EXCEL Application对象

2019-11-19 08:00:00
zstmtony
原创
114
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
分享