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

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