一键输出数据库表格到EXCEL

最新推荐文章于 2025-02-25 15:07:05 发布

低调的嚣张的程序员

最新推荐文章于 2025-02-25 15:07:05 发布

阅读量342

点赞数 1

CC 4.0 BY-SA版权

分类专栏： 001 Access VBA

本文链接：https://blog.youkuaiyun.com/zeephom/article/details/79172776

001 Access VBA 专栏收录该内容

50 篇文章

订阅专栏

本篇博客介绍了一个使用VBA编写的程序，该程序可以生成并导出生产一部的订单到Excel文件中。它包括清理并填充订单导出表、设置警告状态、运行SQL删除命令以及打开查询来填充数据等步骤。

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

Private Sub 生产一部格式_Click()
Dim ord_path, fname As String
Dim EXL As Object


fname = CStr(Date)
fname = "生产一部" & Replace(fname, "/", "")
ord_path = CurrentProject.Path & "\生产订单" & fname & ".xlsx"

'**************清空并生成生产一部订单导出表↓****************
DoCmd.SetWarnings False
DoCmd.RunSQL "delete * from 生产一部订单导出"
DoCmd.OpenQuery "qry生产一部订单导出"
DoCmd.SetWarnings True
'**************清空并生成生产一部订单导出表↑****************

ExportToExcelQueryTables "生产一部订单导出", fname


If Len(Dir(ord_path, vbDirectory)) > 0 Then
On Error GoTo 创建:
'MsgBox "文件" & CurrentProject.Path & "\报表\" & fileName & "已经存在"
Set EXL = GetObject(, "Excel.Application")
'Set xlWbk = xlApp.Workbooks.Open(CurrentProject.Path & "\报表\" & wshName)
EXL.Workbooks.Open (ord_path)
EXL.Visible = False
EXL.Visible = True
DoCmd.Close acForm, "frm订单导出格式选择"
Else
MsgBox "订单不存在,请生成后再打开"
End If
创建:
If Err = 429 Then
Set EXL = CreateObject("Excel.Application")
Resume Next
End If
End Sub