久久久久精品国产亚洲AV麻豆,婷婷六月丁香,2021国产拍精品系列观看

Access VB6或VBA獲取EXCEL對(duì)象

一、Access或VB6獲取EXCEL的application對(duì)象的方法
如果EXCEL已經(jīng)被打開了，將返回當(dāng)前已打開的Excel的Applciationc對(duì)象，如果沒有任何EXCEL打開，會(huì)創(chuàng)建一個(gè)新的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對(duì)象或者application方法

該方法如果EXCEL已經(jīng)有打開，就會(huì)將當(dāng)前applciation 返回，如果沒有任何EXCEL打開，會(huì)創(chuàng)建一個(gè)新的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

聯(lián)系人：	王先生
Email：	18449932@qq.com
QQ：	18449932
微博：	officecn01

聯(lián)系人：

王先生

Email：

18449932@qq.com

QQ：

18449932

微博：

officecn01

Office交流網(wǎng)

Access VB或VBA獲取EXCEL Application對(duì)象