Public Function getTblExcel(strExcel As String)
On Error GoTo Create
'-----------定义Excel的对象--------------
Dim xlApp As Excel.Application '引用了 Microsoft Excel 14.0就会出现这个对象
Dim xlWbk As Excel.Workbook
Dim xlWsh As Excel.Worksheet
Dim Rng As Excel.Range
Dim rsNum As Integer
'-----------定义DAO的对象用于创建DAO记录集--------------
'------开始创建进行数据引出操作-------
Set xlApp = GetObject(, "Excel.Application")
xlApp.Visible = True
Set xlWbk = xlApp.Workbooks.Add
Set xlWsh = xlWbk.Worksheets(1)
xlWsh.Activate
xlWbk.Close
Set xlWsh = Nothing
Set xlWbk = Nothing
'-----这个用来检查关闭此工作簿之后,是否还存在工作簿
'------如果没有的话就直接关闭Excel程序
'------如果没有的话就直接关闭Excel程序
If xlApp.Workbooks.Count = 0 Then
xlApp.Quit'之前以为是Set xlApp= Nothing,其实不是的
End If
Create:
If Err = 429 Then
Set xlApp = CreateObject("Excel.Application")
Resume Next
End If
End Function
简单实例:Access VBA打开Excel表格然后关闭
最新推荐文章于 2024-07-05 17:13:52 发布