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

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

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

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
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值