导出后台库中的查询到EXCEL问题

ynjxw

这是我以前用的代码,(后台名称为"管理表",要导出的查询为"查询1")
Dim strConn As String
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim SQL As String
strConn = "provider = MicroSoft.jet.OLEDB.4.0;persist Security Info = False;Data Source=\\ht\sjk\管理表.mdb;Mode = ReadWrite;Jet OLEDB:database Password=9020478;"
          conn.Open strConn
          conn.Execute ("SELECT * INTO [Excel 8.0;Database=D:\导出.xls].导出数据 FROM 查询1;")
MsgBox "操作完成"

但是在执行过程中发现,在查询里使用like,iif等函数,导出的数据就不准确.
现在想用:
DoCmd.OutputTo acQuery, "查询1", "MicrosoftExcelBiff8(*.xls)", "", False, "", 0
这样的命令来导出,但是不知道怎么用在我的代码中

roych

是Excel追加到Access吧？如果数据在Excel里的话，Access用的是Like *A*，Excel中应改为 Like %A%，——之前俺也遇到过类似问题。

ynjxw

是用ACCESS前台导出后台库里的查询到EXCEL.

ynjxw

不是在本库中操作,所以才发生数据不准确的情况.

roych

回复 ynjxw 的帖子

1. Sub test()
   
2. '需引用Excel库（俺的2010是14.0,2003应该是12.0)。
   
3. Dim exl As Excel.Application
   
4. Dim wk As Workbook
   
5. Dim strConn As String
   
6. Dim conn As New ADODB.Connection
   
7. Dim rs As New ADODB.Recordset
   
8. Dim SQL As String
   
9. Set exl = CreateObject("Excel.Application")
   
10. strConn = "provider = MicroSoft.jet.OLEDB.4.0;persist Security Info = False;Data Source=\ht\sjk\管理表.mdb;Mode = ReadWrite;Jet OLEDB:database Password=9020478;"
    
11.           conn.Open strConn
    
12. rs.Open "SELECT * FROM 查询1",strConn, adOpenKeyset, adLockOptimistic
    
13. '增加工作簿
    
14. exl.Workbooks.Add
    
15. '定义活动工作表
    
16. Set wk = exl.ActiveWorkbook
    
17. wk.Sheets(1).Select
    
18. '可以改为A2开始复制记录集。如需写入表头，则应该用rst.Fields来写入
    
19. wk.Sheets(1).Range("A1").CopyFromRecordset rs
    
20. '设为可见，以便用户保存位置。
    
21. exl.Visible = True
    
22. End Sub

复制代码

看看这样行不行。这里没有导出字段名，如需导出，还得写点代码。
2010转换的文件，不知道是否可用。

ynjxw

导出的结果还是和在后台查询里看到的不一样.

ynjxw

不知道问题出在哪里

ynjxw

看来问题不在导出上,而是在打开后台数据库的查询这个环节上,不知道有没有成熟的方法.

roych

如果有链接表的话，可否考虑用链接表做查询再导出（transferspeardsheet)？

ynjxw

主要是考虑两点:1、有些表前台没有，2、直接导后台的这样比较方便。
看来是不行了。
感谢roych 的无私帮助。