簡單執行個體：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