Office中国论坛/Access中国论坛

标题: Access数据导出到Excel固定格式，到一百多条时会出错，请问代码有什么问题吗？ [打印本页]
作者: ejihua    时间: 2017-9-10 10:43
标题: Access数据导出到Excel固定格式，到一百多条时会出错，请问代码有什么问题吗？
Access数据导出到Excel固定格式，到一百多条时会出错，请问代码有什么问题吗？[attach]61959[/attach]
作者: Henry D. Sy    时间: 2017-9-10 17:18
  1. Dim rs As New ADODB.Recordset
  2.     Dim sSQL As String
  3.     Dim xlApp As New Excel.Application
  4.     Dim xlBook As Excel.Workbook
  5.     Dim xlSheet As Excel.Worksheet
  6.     Dim xlQuery As Excel.QueryTable
  7.    
  8.     sSQL = "SELECT 图,FTC,款号,合同,IntentNo,款式,面料,颜色,尺码,数量,交期,印绣花,搭配,辅料,主标 FROM 订单"
  9.     rs.CursorLocation = adUseClient
  10.     rs.Open sSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
  11.     Set xlBook = xlApp.Workbooks().Open(CurrentProject.Path & "\导出模板.xltx", , True)
  12.     xlApp.DisplayAlerts = False
  13.     xlBook.SaveAs CurrentProject.Path & "\导出模板.xlsx"    '另存为不同的文件名，
  14.     Set xlSheet = xlBook.Worksheets("订单")
  15.     xlSheet.Activate
  16.     Set xlQuery = xlSheet.QueryTables.Add(rs, xlSheet.Range("A2"))
  17.     With xlQuery
  18.         .FieldNames = False
  19.         .AdjustColumnWidth = False
  20.         .Refresh
  21.         .Delete
  22.     End With
  23.     rs.Close
  24.     Set rs = Nothing
  25.     xlBook.Save
  26.     xlApp.DisplayAlerts = True
  27.     xlApp.WindowState = xlMinimized
  28.     xlApp.WindowState = xlMaximized
  29.     xlApp.Application.Visible = True
  30.    
  31.     Set xlQuery = Nothing
  32.     Set xlSheet = Nothing
  33.     Set xlBook = Nothing
  34.     Set xlApp = Nothing
复制代码

[attach]61961[/attach]
作者: ejihua    时间: 2017-9-10 20:28
版主，多谢回复，提示找不出工程或库，Dim xlApp As New Excel.Application
另外，以前的代码不能修改使用吗？另一个表还想导出Excel固定格式。
作者: Henry D. Sy    时间: 2017-9-10 21:23
ejihua 发表于 2017-9-10 20:28
版主，多谢回复，提示找不出工程或库，Dim xlApp As New Excel.Application
另外，以前的代码不能修改使用 ...

需要引用excel
作者: ejihua    时间: 2017-9-10 21:45
本帖最后由 ejihua 于 2017-9-10 21:49 编辑

引用了excel,可以运行，不过似乎不能导出图片，那不就跟系统的导出一样的？
作者: Henry D. Sy    时间: 2017-9-10 22:00
你表中有图片吗
作者: ejihua    时间: 2017-9-11 08:23
[attach]61967[/attach]
重新上传，有图，连接，在连续窗体中显示不出来，不过可以导出来。
发现一个新问题，导出的excel文件发给别人，图片显示不出来，难道在excel中图片也是连接？



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3