SQL跨工作簿查找数据

lucifergogo · 发表于 2016-5-22 11:40

本帖最后由 lucifergogo 于 2016-5-22 11:41 编辑

QQ截图20160522113532.png

我想用ADO方法实现如上图所示的功能，但是一直都报错，如下图所示，请大神们搭救一下。
错误.png

代码如下：

Sub SQL程序()
Dim conn
Dim sql As String
'-------------------------------------------------------
spath = ActiveWorkbook.FullName 'ActiveWorkbook.FullName为当前excel文件路径
sql = "update [Excel 8.0;DATABASE=" & spath & "].[Sheet1$] A,[Excel 8.0;DATABASE=" & ActiveWorkbook.Path & "\测试1.xls].[Sheet1$] B SET A.[拼音]=B.[拼音] where A.[姓名]=B.[姓名]"
Debug.Print sql
'-------------------------------------------------------
Set conn = CreateObject("adodb.connection") '创建ado对象
'Set rst = CreateObject("ADODB.recordset") '创建记录集
If Application.Version >= 15 Then
'调用数据库类型----------------------------------------
'针对Excel2013数据引用微软引擎，最后添加数据库路径
conn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0;HDR=yes;imex=1';data source=" & spath
ElseIf Application.Version >= 14 Then
'针对Excel2010以前的数据引用微软引擎，最后添加数据库路径
conn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 8.0;HDR=YES';data source=" & spath
ElseIf Application.Version >= 11 Then
'针对Excel2003以前的数据引用微软引擎，最后添加数据库路径
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;HDR=YES';data source=" & spath
End If
conn.Execute (sql)
conn.Close
Set conn = Nothing
End Sub

复制代码

SQL查找.rar (63.08 KB, 下载次数: 254)

lucifergogo · 发表于 2016-5-22 13:55

以上问题我自己终于解决了。首先ADO调用oledb要赋予读写权限，即IMEX=3，然后update语句中，跨工作簿调用的数据表也要声明写入权限，即IMEX=2，总之，我在电脑前坐了10个小时才解决这个问题……5555……

Sub SQL程序()
Dim conn
Dim sql As String
'-------------------------------------------------------
spath = ActiveWorkbook.FullName 'ActiveWorkbook.FullName为当前excel文件路径
sql = "update [Sheet1$] A,[Excel 8.0;HDR=yes;imex=2;DATABASE=" & ActiveWorkbook.Path & "\测试1.xls].[Sheet1$] B SET A.[拼音]=B.[拼音] where A.[姓名]=B.[姓名]"
'-------------------------------------------------------
Set conn = CreateObject("adodb.connection") '创建ado对象
'Set rst = CreateObject("ADODB.recordset") '创建记录集
If Application.Version >= 15 Then
'调用数据库类型----------------------------------------
'针对Excel2013数据引用微软引擎，最后添加数据库路径
conn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0;HDR=yes;imex=3';data source=" & spath
ElseIf Application.Version >= 14 Then
'针对Excel2010以前的数据引用微软引擎，最后添加数据库路径
conn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 8.0;HDR=YES;imex=3';data source=" & spath
ElseIf Application.Version >= 11 Then
'针对Excel2003以前的数据引用微软引擎，最后添加数据库路径
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;HDR=YES;imex=3';data source=" & spath
End If
conn.Execute (sql)
conn.Close
Set conn = Nothing
End Sub

复制代码

忘得快 · 发表于 2016-5-22 17:04

lucifergogo 发表于 2016-5-22 13:55
以上问题我自己终于解决了。首先ADO调用oledb要赋予读写权限，即IMEX=3，然后update语句中，跨 ...

精神可嘉！

microyip · 发表于 2016-12-10 08:24

把imex参数去掉，让它默认参数就OK啦

yeminqiang · 发表于 2016-12-10 08:55

楼主肾真好。

LMY123 · 发表于 2017-11-15 10:45

SQL跨工作薄实现VLOOKUP

追梦人5599 · 发表于 2020-5-14 22:56

lucifergogo 发表于 2016-5-22 13:55
以上问题我自己终于解决了。首先ADO调用oledb要赋予读写权限，即IMEX=3，然后update语句中，跨 ...

您好，您这种方法刚好能解决我的一个类似问题，但我用您同样的方法，却一直报错，折腾了好久，一直没找到原因？
麻烦您看到后帮忙解答一下呢，谢谢啦！
也烦请各位大神帮忙指教指教，谢谢！

xd3210 · 发表于 2020-5-15 08:29

追梦人5599 发表于 2020-5-14 22:56
您好，您这种方法刚好能解决我的一个类似问题，但我用您同样的方法，却一直报错，折腾了好久，一直没找到 ...

sql = "update [总计划$a3:bl] A,[Excel 8.0;HDR=yes;imex=2;DATABASE=" & ActiveWorkbook.Path & "\生产计划管理-胶印.xls].[生产计划管理$] B SET A.[客户的物料编码]=B.[物料编码] where A.[工单号]=B.[单据编号]"

追梦人5599 · 发表于 2020-5-15 13:40

xd3210 发表于 2020-5-15 08:29
sql = "update [总计划$a3:bl] A,[Excel 8.0;HDR=yes;imex=2;DATABASE=" & ActiveWorkbook.Path & "\生产 ...

谢谢，恰到好处，完美解决问题！谢谢啦！

追梦人5599 · 发表于 2020-5-17 21:40

xd3210 发表于 2020-5-15 08:29
sql = "update [总计划$a3:bl] A,[Excel 8.0;HDR=yes;imex=2;DATABASE=" & ActiveWorkbook.Path & "\生产 ...

您好，在您的帮忙下，用您的方法已经完美实现了通过工单号跨工作簿引用物料编码，但现在想进一步引用其它各字段的数据，我进一步补充了代码，但运行时报错，不知什么原因？要怎么修改代码呢？麻烦再帮忙解决一下呢，谢谢啦！

		自动登录	找回密码
密码			免费注册

[求助] SQL跨工作簿查找数据