update语句根据一个工作簿(2007)内容修改另一个工作簿数据的发现

zhaogang1960

通常使用update语句修改工作簿数据时，使用单一条件

今天在回答遇到一个新情况：update语句根据一个工作簿内容修改另一个工作簿数据

1. Sub 根据另一个工作簿更新数据update2003()
   
2.     Dim cnn As Object
   
3.     Dim SQL As String
   
4.     Dim p  As String, f As String
   
5.     p = ThisWorkbook.Path & ""
   
6.     f = Dir(p & "A*.xls")
   
7.     Set cnn = CreateObject("adodb.connection")
   
8.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
   
9.     SQL = "update [Excel 8.0;Database=" & p & f & "].[Sheet$] a,[每日数据$] b set a.批次=b.批次 where a.单号=b.单号"
   
10.     cnn.Execute SQL
    
11.     cnn.Close
    
12.     Set cnn = Nothing
    
13. End Sub
    

复制代码

该语句对Excel2003是有效的，在Excel2007、Excel2010时提示该版本这个功能已被禁用，只能使用逐条记录修改的方式，下面附件中有这两个代码

请看附件
update2003.rar (13.51 KB, 下载次数: 147)

2012-11-7 18:02 上传

点击文件名下载附件

update2007.rar (23.33 KB, 下载次数: 239)

2012-11-7 18:02 上传

点击文件名下载附件

希望该情况能对大家有所帮助，也希望大家参与改进更新数据方法，如果能使用update语句，在Excel2007、Excel2010中不使用逐条判断修改记录，送技术分2分

原帖请看
sql update 语句出错，请帮忙看下
http://club.excelhome.net/thread-940810-1-1.html

使用update语句，在Excel2007、Excel2010中不使用逐条判断修改记录，需要修改IMEX参数：IMEX=0，见6楼、7楼代码

下面是网上关于imex参数的解释：

关于Excel导入的HDR=YES; IMEX=1详解
IMEX ( IMport EXport mode )设置
　　IMEX 有三种模式：
　　0 is Export mode
　　1 is Import mode
　　2 is Linked mode (full update capabilities)
　　我这里特别要说明的就是 IMEX 参数了，因为不同的模式代表著不同的读写行为：
　　当 IMEX=0 时为“汇出模式”，这个模式开启的 Excel 档案只能用来做“写入”用途。
　　当 IMEX=1 时为“汇入模式”，这个模式开启的 Excel 档案只能用来做“读取”用途。
　　当 IMEX=2 时为“连結模式”，这个模式开启的 Excel 档案可同时支援“读取”与“写入”用途。
意义如下:
0 ---输出模式;
1---输入模式;
2----链接模式(完全更新能力)



该贴已经同步到 zhaogang1960的微博

hustnzj

实在想不出来，真是眼馋啊，很想知道答案……

zhaogang1960

hustnzj 发表于 2012-11-7 19:09
实在想不出来，真是眼馋啊，很想知道答案……

微软禁用该功能，可能它存在缺陷，即没有答案，也可能我没有找到正确的方法

hustnzj

zhaogang1960 发表于 2012-11-7 19:39
微软禁用该功能，可能它存在缺陷，即没有答案，也可能我没有找到正确的方法

赵老师，我发现一点：
在Access 2007中导入的Excel链接表是无法更新的。而Access 03导入的Excel链接表是可以修改的，并且改动会影响到数据源表。大胆推测一下：应该是微软为了保护Excel数据源表的安全而这样设置的了。呵呵。

zhaogang1960

hustnzj 发表于 2012-11-7 21:08
赵老师，我发现一点：
在Access 2007中导入的Excel链接表是无法更新的。而Access 03导入的Excel链接表 ...

可能是这个原因，提示确实提到了链接Excel 电子表，请看下图：

HHAAMM

加上 HDR=yes;imex=0就可以了

zhaogang1960

HHAAMM 发表于 2012-11-7 21:28
加上 HDR=yes;imex=0就可以了

郝版威武

1. SQL = "update [Excel 12.0;imex=0;Database=" & p & f & "].[Sheet$] a,[每日数据$] b set a.批次=b.批次 where a.单号=b.单号"

复制代码

HHAAMM

zhaogang1960 发表于 2012-11-7 21:33
郝版威武

惭愧，惭愧，赵兄客气了。这个只是有时容易忽视的细节{:soso_e110:}

zhaogang1960

HHAAMM 发表于 2012-11-7 21:37
惭愧，惭愧，赵兄可客气。只是有时容易忽视的细节

平时只注重解决问题，却从来不问为什么，这是学工科的只重视实用养成的吧

hustnzj

HHAAMM 发表于 2012-11-7 21:28
加上 HDR=yes;imex=0就可以了

版主太牛了，我都想了下，就是没有测试，2分就这样溜走了{:soso_e109:}

啊，赵老师给我技术分了，这是我在EH第一个技术分啊！我太高兴了！谢谢老师！！！{:soso_e163:}