通过sql语句，一次性连接access中表A+excel中表2中表B，形成查询结果表

ljxxw

请教老师，


能否在Excel里通过sql语句，一次性连接access中表A+excel中表2中表B，形成红色的查询结果表



单独sql到Excel然后再unioin受限，access中的表A超过104万行


上图只是示意说明，就是想Excel中表B，与access中的数据库表A，一条语句通过SQL进行查询运算得到需要的表，导出到Excel中。

qdtzq

一条语句可以实现，只是超过104万行你让excel怎么装？

ljxxw

qdtzq 发表于 2022-11-30 19:36
一条语句可以实现，只是超过104万行你让excel怎么装？

谢谢  qdtzq  老师回复！
虽然access中的表A超过104万行，但excel中的表B作为条件表，通过与表A查询筛选结果最多不会超过1万行的，
上面那个截图是示意，实际并不是把表A与表B合并导出的，

比如这样写：
select * from [D:\SHCGB\cwlj\文档\access\同时连excel+access表\表2.xlsx].[B$]  union all  select * from [D:\SHCGB\cwlj\文档\access\同时连excel+access表\测3.accdb].A

也就是说数据源 有2个类型，excel的和access的，在一起查询，但是报错！

请教 qdtzq  老师 一条语句如何写呢

qdtzq

ljxxw 发表于 2022-11-30 20:58
谢谢  qdtzq  老师回复！
虽然access中的表A超过104万行，但excel中的表B作为条件表，通过与表A查询筛选 ...

若是白天没有其他人回复，晚上我回复你

limonet

代码审核中。

limonet

Sub UnionData()
    Dim Cn As Object, Rs As Object, StrCn$, StrSQL$, i%
    Set Cn = CreateObject("ADODB.Connection")
    StrCn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\测3.accdb"
    Cn.Open StrCn
    StrSQL = "Select * From [Excel 12.0 XML;DataBase=" & ThisWorkbook.Path & "\表2.xlsx" & "].[B$] UNION ALL Select * From A"
    Set Rs = Cn.Execute(StrSQL)
    For i = 0 To Rs.Fields.Count - 1
        Cells(1, i + 1) = Rs.Fields(i).Name
    Next i
    Range("A2").CopyFromRecordset Rs
End Sub

ljxxw

limonet 发表于 2022-12-1 10:13
Sub UnionData()
    Dim Cn As Object, Rs As Object, StrCn$, StrSQL$, i%
    Set Cn = CreateObject( ...

谢谢 limonet 老师回复！
我不懂vba，能用 SQL语句实现吗

limonet

Select * From [Excel 12.0 XML;DataBase=C:\Users\limonet\OneDrive\桌面\同时连excel+access表\表2.xlsx].[B$] UNION ALL Select * From A

limonet

前面好像回复没有成功。

ljxxw

limonet 发表于 2022-12-1 10:51
Select * From [Excel 12.0 XML;DataBase=C:%users\limonet\OneDrive\桌面\同时连excel+access表\表2.xlsx] ...

非常感谢 limonet 老师指导，这就是我想要的！

再请教，连接access的语句Select * From A，完整应该如何写，
select  *  from  [Microsoft.ACE.OLEDB.12.0;DataBase=D:\SHCGB\cwlj\文档\Access\同时连excel+access表\测3.accdb].[A]
我这样写报错

？？？=D:\SHCGB\cwlj\文档\Access\同时连excel+access表\测3.accdb，等号=之前该如何写？