【83期】VBA多工作簿多工作表数据查询[已小结]

慰平生 · 发表于 2013-8-30 16:23

又搜到赵老师的贴了，我发现我遇到的问题赵老师都曾解答过。得！现在又得去恶补ADO与SQL语句的知识了！{:soso_e154:}做个表咋就这么不容易的！！
都有点吃不消了！！！

慰平生 · 发表于 2013-8-30 17:12

赵老师，麻烦看一下！！
http://club.excelhome.net/forum. ... =1051605&extra=

Johnny_Lyc · 发表于 2014-2-17 14:35

学海无涯苦作舟,要好好的学习学习

百度不到去谷歌 · 发表于 2014-3-8 18:06

这里都是写sql的求教一个问题啊
excel用ado的时候一直有个弊病不知道如何圆满解决就是字符和数值混合型字段总是喜欢丢失另外当一个表头8个数据都没有而后续有数字的时候这种情况还是很多的一直找不到确实有效的方法

zhaogang1960 · 发表于 2014-3-8 18:19

百度不到去谷歌发表于 2014-3-8 18:06
这里都是写sql的求教一个问题啊
excel用ado的时候一直有个弊病不知道如何圆满解决就是字符和数值混合型字 ...

加参数：imex=1
cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties='Excel 12.0;imex=1';Data Source=" & 数据源

修改注册表，判断一个表头8个数据改成你喜欢的个数：

Const HKEY_LOCAL_MACHINE = &H80000002
Set objWMI = GetObject("winmgmts:\\.\root\default:StdRegProv")
objWMI.SetDWORDValue HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Jet\4.0\Engines\Excel", "TypeGuessRows", 100'改为判断头100个记录

百度不到去谷歌 · 发表于 2014-3-8 19:51

本帖最后由百度不到去谷歌于 2014-3-8 19:53 编辑

zhaogang1960 发表于 2014-3-8 18:19
加参数：imex=1
cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties='Excel 12.0;imex=1 ...

我试试可是imex=1就不能update吧

zhaogang1960 · 发表于 2014-3-8 19:54

百度不到去谷歌发表于 2014-3-8 19:51
imex=1就不能update吧

update不能加imex=1，建议用临时工作表，或临时区域过度
update请参考：
根据工作表批量更新Access数据库并向数据库添加不存在的记录(不使用循环)
http://club.excelhome.net/thread-1023579-1-1.html

百度不到去谷歌 · 发表于 2014-3-8 20:26

zhaogang1960 发表于 2014-3-8 19:54
update不能加imex=1，建议用临时工作表，或临时区域过度
update请参考：
根据工作表批量更新Access数据 ...

好的多谢!

pegasus101 · 发表于 2014-7-11 09:37

学习了。。

ahh0511 · 发表于 2014-10-17 23:09

收藏，谢谢赵老师分享，很经典！

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

[Excel 程序开发] 【83期】VBA多工作簿多工作表数据查询[已小结]

点评

评分