office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

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

access創建Excel工作簿併啟動

2020-06-04 08:00:00
tmtony8
原創
712

我們經常需要對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工作簿成功:

    分享