Access数据导出到Excel固定格式，到一百多条时会出错，请问代码有什么问题吗？

ejihua

Access数据导出到Excel固定格式，到一百多条时会出错，请问代码有什么问题吗？

Henry D. Sy

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

复制代码

ejihua

版主，多谢回复，提示找不出工程或库，Dim xlApp As New Excel.Application
另外，以前的代码不能修改使用吗？另一个表还想导出Excel固定格式。

Henry D. Sy

ejihua 发表于 2017-9-10 20:28
版主，多谢回复，提示找不出工程或库，Dim xlApp As New Excel.Application
另外，以前的代码不能修改使用 ...

需要引用excel

ejihua

引用了excel,可以运行，不过似乎不能导出图片，那不就跟系统的导出一样的？

Henry D. Sy

你表中有图片吗

ejihua

重新上传，有图，连接，在连续窗体中显示不出来，不过可以导出来。
发现一个新问题，导出的excel文件发给别人，图片显示不出来，难道在excel中图片也是连接？