office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

access创建Excel工作簿并启动

2020-06-04 08:00:00
tmtony8
原创
808

我们经常需要对access数据库中的数据导出到Excel中。

Excel也提供了很多直接导出的功能和简单的代码。但是如果要对部分数据导出,单纯的一个函数就很难实现。

这里分享一段启动Excel应用程序的代码,方便后面导出数据,这段代码是固定的,可以抄下来一直使用。

Private Sub cmd_启动_Click()
   '定义Excel应用程序变量
    Dim xlApp As New Excel.Application
   '定义工作表变量
    Dim xlWbk As Excel.Workbook
    '在Excel应用程序中新增工作簿
    Set xlWbk = xlApp.Workbooks.Add
    '设置Excel应用程序可视状态为True
    xlApp.Visible = True
End Sub


创建Excel工作簿成功:

    分享