如何利用ADO从Excel和TXT文件同时读取数据并将结果合并！

月落天河1983

各位大神，我想在VBA中利用ADO方法同时从Excel数据库和TXT数据库查询数据然后使用类似Union All的方法将查询的结果合并在一起，请问下具体代码应该怎么写呢，非常感谢！

月落天河1983

顶一下！[求助] 如何利用ADO从Excel和TXT文件同时读取数据并将结果合并

zhaogang1960

传个附件吧：
如何利用ADO从Excel和TXT文件同时读取数据并将结果合并.rar (19.67 KB, 下载次数: 161)

2015-1-29 17:58 上传

点击文件名下载附件

zhaogang1960

代码发了N遍，提示有不良信息，上个图片吧，请参考：

月落天河1983

zhaogang1960 发表于 2015-1-29 17:57
代码发了N遍，提示有不良信息，上个图片吧，请参考：

谢谢版主，不好意思现在才看到回复！

月落天河1983

zhaogang1960 发表于 2015-1-29 17:57
代码发了N遍，提示有不良信息，上个图片吧，请参考：

另外再请教一下版主，如果我代码是要放在ExcelVBA中呢，在EXCEL VBA中打开Acess数据库，然后读取 TXT或Excel数据最终再和Acess读取的数据汇总求，和，即代码在Excel工作薄A中，需要读取Excel工作薄B 以及 Acess表C 的数据，并将结果汇总至工作薄A中代码应该怎么写呢，万分感谢！

zhaogang1960

月落天河1983 发表于 2016-8-27 16:02
另外再请教一下版主，如果我代码是要放在ExcelVBA中呢，在EXCEL VBA中打开Acess数据库，然后读取 TXT或 ...

Sub 查询()
    Dim cnn As Object, rs As Object, i&
    Set cnn = CreateObject("adodb.connection")
    cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\数据库.mdb"
    SQL = "SELECT * FROM (SELECT * FROM C UNION ALL SELECT * FROM [Excel 8.0;Database=" & ThisWorkbook.Path & "\B.xls;].[Sheet1$])"
    Set rs = cnn.Execute(SQL)
    Cells.ClearContents
    For i = 1 To rs.Fields.Count
        Cells(1, i) = rs.Fields(i - 1).Name
    Next
    Range("A2").CopyFromRecordset rs
    rs.Close
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
End Sub

zhaogang1960

请看附件
查询.rar (28.85 KB, 下载次数: 84)

2016-8-27 20:35 上传

点击文件名下载附件

月落天河1983

zhaogang1960 发表于 2016-8-27 20:35
请看附件

谢谢赵老师，再次谢谢！

月落天河1983

zhaogang1960 发表于 2016-8-27 20:35
请看附件

赵老师，还有两个问题需要请教一下您，盼复，谢谢！
1,使用VBASQL连接Acess创建表单时，如何将字段设置成备注型。
2,使用Insert Into语句插入数据时，如果插入的字符串包含特殊字符分号报错，该怎么改写呢，
比如，要插入的字符串为 i don't know,因为包含了'，一直报错！