一句代码把查询或者表导出Excel-欧志华
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


一句代码把查询或者表导出Excel

发表时间:2020/12/6 23:30:56 评论(2) 浏览(6768)  评论 | 加入收藏 | 复制
   
摘 要:一句代码把查询或者表导出Excel,TransferSpreadsheet。
正 文:

      在使用Access过程,经常在工作中会把Access中的数据导出到Excel,有时候一下子匆匆忙忙的,要是重新设计一个完整的代码有点浪费时间。其实docmd命令里面就有一个直接导出到Excel 的命令 TransferSpreadsheet,而且还可以导出多个表或者查询到同个工作簿里面。

代码如下:
'导出到一个工作表
DoCmd.TransferSpreadsheet acExport, , "tblDepartment", strFilename, True    '导出表
'导出到多个工作表
Dim strFilename As String
    strFilename = CurrentProject.Path & "\盟威.xlsx"
    DoCmd.TransferSpreadsheet acExport, , "tblDepartment", strFilename, True    '导出表
    DoCmd.TransferSpreadsheet acExport, , "tblEmployee", strFilename, True      '导出表
    DoCmd.TransferSpreadsheet acExport, , "tblExpense", strFilename, True       '导出表
    DoCmd.TransferSpreadsheet acExport, , "员工查询", strFilename, True      '导出查询
    MsgBox " 数据已导出"


附   件:

点击下载此附件


图   示:


Access软件网交流QQ群(群号:198465573)
 
 相关文章
将全部的表和查询导出到指定的文件夹示例  【十段  2008/6/2】
[示例]查询导出到指定excel文件  【jingyu  2008/11/22】
[access查询]将access表导出为TXT文件及将TXT文件...  【Big Young  2012/6/26】
[access查询]将access表导出为EXCEL表及将EXCE...  【Big Young  2012/6/27】
Access报表导出为PDF代码,Access窗体导出为PDF代码...  【麥田  2018/6/21】
【Access窗体导出Excel】导出Excel文件如何在文件名里...  【麥田  2023/11/15】
常见问答
技术分类
相关资源
文章搜索
关于作者

欧志华

文章分类

文章存档

友情链接