亚洲A有V码欧洲A无V码网站,午夜福利视频日韩美女一级毛片a

Access VB6或VBA穫?cè)XCEL對象

一、Access或VB6穫?cè)XCEL的application對象的方法
如果EXCEL已經(jīng)被打開瞭，將返迴當(dāng)前已打開的Excel的Applciationc對象，如果沒有任何EXCEL打開，會創(chuàng)建一箇新的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 穫?cè)XCEL對象或者application方法

該方法如果EXCEL已經(jīng)有打開，就會將當(dāng)前applciation 返迴，如果沒有任何EXCEL打開，會創(chuàng)建一箇新的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穫?cè)XCEL Application對象