Access 2007/2010 VBA查询结果导出为Excel 2007文件

最新推荐文章于 2025-05-19 11:29:26 发布

DJ2008

最新推荐文章于 2025-05-19 11:29:26 发布

阅读量4.3k

点赞数

分类专栏： VB + VBA Access

VB + VBA 同时被 2 个专栏收录

20 篇文章

订阅专栏

Access

2 篇文章

订阅专栏

本文介绍了一个使用VBA进行数据表格加载与显示的方法，并提供了将数据表格内容导出为Excel 2007格式文件的功能实现代码。通过设置表格的可见性和重新查询数据来确保数据是最新的，然后允许用户选择保存路径并完成导出。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

01
Private Sub Form_Load

02
    Data_Table.SourceObject
 = "Query.Data
 View"

03
    Data_Table.Visible
 = False

04
End Sub

05
 
06
Public Sub DataSource()

07
Data_Table.Visible
 = True

08
KeyFindTxt.SetFocus

09
KeyFindTxt.Tag
 = KeyFindTxt.Text

10
NameFindTxt.SetFocus

11
NameFindTxt.Tag
 = NameFindTxt.Text

12
Data_Table.Requery

13
End Sub

14
 
15
Private Sub OutputData_Click()

16
If Data_Table.Visible Then

17
    With Application.FileDialog(msoFileDialogSaveAs)

18
        .AllowMultiSelect
 = False

19
        '.Filters(0).Description
 = "Excel 2007 Files"

20
        '.Filters(0).Extensions
 = "*.xlsx"

21
        '.Filters.Add
 "Excel 2007 Files", "*.xlsx"

22
        '.Filters.Add
 "All Files", "*.*"

23
        If .Show
 = -1 Then

24
            DoCmd.TransferSpreadsheet
 acExport, acSpreadsheetTypeExcel12Xml, "Data
 View",
 .SelectedItems(1), True

25
        End If

26
    End With

27
End If

28
End Sub