access创建Excel工作簿并启动

我们经常需要对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工作簿成功：