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工作簿成功：