Access VB或VBA获取EXCEL Application对象
- 2019-11-19 08:00:00
- zstmtony 原创
- 5782
一、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
文章分类
联系我们
| 联系人： | 王先生 |
|---|---|
| Email： | 18449932@qq.com |
| QQ： | 18449932 |
| 微博： | officecn01 |
