access創(chuàng)建Excel工作簿并啟動(dòng)

我們經(jīng)常需要對(duì)access數(shù)據(jù)庫中的數(shù)據(jù)導(dǎo)出到Excel中。

Excel也提供了很多直接導(dǎo)出的功能和簡單的代碼。但是如果要對(duì)部分?jǐn)?shù)據(jù)導(dǎo)出，單純的一個(gè)函數(shù)就很難實(shí)現(xiàn)。

這里分享一段啟動(dòng)Excel應(yīng)用程序的代碼，方便后面導(dǎo)出數(shù)據(jù)，這段代碼是固定的，可以抄下來一直使用。

Private Sub cmd_啟動(dòng)_Click()
   '定義Excel應(yīng)用程序變量
    Dim xlApp As New Excel.Application
   '定義工作表變量
    Dim xlWbk As Excel.Workbook
    '在Excel應(yīng)用程序中新增工作簿
    Set xlWbk = xlApp.Workbooks.Add
    '設(shè)置Excel應(yīng)用程序可視狀態(tài)為True
    xlApp.Visible = True
End Sub

創(chuàng)建Excel工作簿成功：