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

大佬教程收集整理的这篇文章主要介绍了Access 2007/2010 VBA查询结果导出为Excel 2007文件，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

Private Sub Form_Load
    Data_Table.sourceObject = "Query.Data View"
    Data_Table.Visible = false
End Sub

Public Sub Datasource()
Data_Table.Visible = True
KeyFindTxt.SetFocus
KeyFindTxt.Tag = KeyFindTxt.Text
NameFindTxt.SetFocus
NameFindTxt.Tag = NameFindTxt.Text
Data_Table.requery
End Sub

Private Sub OutputData_Click()
if Data_Table.Visible Then
    With Application.FileDialog(msoFileDialogSaveAs)
        .AllowMultiSELEct = false
        '.Filters(0).Description = "Excel 2007 Files"
        '.Filters(0).Extensions = "*.xLSX"
        '.Filters.Add "Excel 2007 Files","*.xLSX"
        '.Filters.Add "All Files","*.*"
        If .Show = -1 Then
            DOCMd.TransferSpreadsheet acExport,acSpreadsheetTypeExcel12Xml,"Data View",.SELEctedItems(1),True
        End If
    End With
End If
End Sub

大佬总结

以上是大佬教程为你收集整理的Access 2007/2010 VBA查询结果导出为Excel 2007文件全部内容，希望文章能够帮你解决Access 2007/2010 VBA查询结果导出为Excel 2007文件所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。