在Access中,可以通过应用“Microsoft
Excel 14.0 Object Library”支持库,实现在Access中灵活地操作Excel,涉及Excel的代码一般都需要使用该支持库的才能够运行。
本例介绍使用New 关键字和Add 方法启动Excel.
本例需要使用New 关键字打开Excel应用程序,并新建一个空白的工作簿。
示例图:
源码:
'启动Excel
Private Sub cmd_启动_Click()
'在定义变量时使用New关键字新建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