简单实例：Access VBA打开Excel表格然后关闭

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()
    xlWsh.Activate

    xlWbk.Close

    Set xlWsh = Nothing
    Set xlWbk = Nothing
    '-----这个用来检查关闭此工作簿之后，是否还存在工作簿
    '------如果没有的话就直接关闭Excel程序
    '------如果没有的话就直接关闭Excel程序
    If xlApp.Workbooks.Count =  Then
        xlApp.Quit'之前以为是Set xlApp= Nothing，其实不是的
    End If
Create:
    If Err =  Then
        Set xlApp = CreateObject("Excel.Application")
        Resume Next
    End If
End Function