简单实例：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(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