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

最新推荐文章于 2025-10-31 14:14:54 发布

原创最新推荐文章于 2025-10-31 14:14:54 发布 · 4.7k 阅读

6 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#access #vba

收录于

001 Access VBA 专栏收录该内容

50 篇文章

订阅专栏

本文提供了一个使用VBA调用Excel并创建新的工作簿的示例代码。该代码展示了如何通过VBA来初始化Excel应用程序，显示它，并创建一个空白的工作簿。如果创建失败，代码会尝试再次创建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