常用工具6.4测试版(拆分、合并、汇总、SQL）功能更强大

jade8833dn

已收藏.非常感谢!!!

ycbwg

非常好 谢谢啦

xwf1127

谢谢..............

tianyaguke

感谢分享！！！！！！！！！

youliqi

功能不少，虽然未全部使用，但感觉很好，谢谢！

Fangfangyy

收藏啦，谢谢楼主的杰作！

advanst

6.3版本还有个错误! 选择 "同路径工作薄合并" 时不能合并, 生成的SQL语句是错的, 6.0的版本是正确的.
6.0版本生成的SQL 正确的!
SELECT [ID],[省份],[机型],[最终用户],[数量] FROM(Select * From [Excel 8.0;DATABASE=C:\TEST\Customer\test\工作表1.xls].[A$] UNION ALL Select * From [Excel 8.0;DATABASE=C:\TEST\Customer\test\工作表1.xls].[B$] UNION ALL Select * From [Excel 8.0;DATABASE=C:\TEST\Customer\test\工作表1.xls].[C$] UNION ALL Select * From [Excel 8.0;DATABASE=C:\TEST\Customer\test\工作表2.xls].[D$] UNION ALL Select * From [Excel 8.0;DATABASE=C:\TEST\Customer\test\工作表2.xls].[E$] UNION ALL Select * From [Excel 8.0;DATABASE=C:\TEST\Customer\test\工作表2.xls].[F$]) WHERE [ID] like '%'

6.3版本生成的SQL: 错误的 工作表2 的sheet 弄成工作表1的sheet去了,重复了
SELECT [ID],[省份],[机型],[最终用户],[数量] FROM(Select * From [Excel 8.0;DATABASE=C:\TEST\Customer\test\工作表1.xls].[A$] UNION ALL Select * From [Excel 8.0;DATABASE=C:\TEST\Customer\test\工作表1.xls].[B$] UNION ALL Select * From [Excel 8.0;DATABASE=C:\TEST\Customer\test\工作表1.xls].[C$] UNION ALL Select * From [Excel 8.0;DATABASE=C:\TEST\Customer\test\工作表2.xls].[A$] UNION ALL Select * From [Excel 8.0;DATABASE=C:\TEST\Customer\test\工作表2.xls].[B$] UNION ALL Select * From [Excel 8.0;DATABASE=C:\TEST\Customer\test\工作表2.xls].[C$]) WHERE [ID] like '%'

示例见附件

advanst

发现原因了.
6.3的代码:
con.Open SQLpeng ' SQLpeng 的值没有随着ListBox2.List(i)中I的值而改变 导致文件都是工作表1, 没有链接到工作表2.
SQLpeng = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;IMEX=1';Data Source=" & TextBox3.Text
SQLpeng 的值不能依次读取ListBox2中的文件名.

6.0的代码正确
con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;IMEX=1';Data Source=" & pt & Me.ListBox2.List(i)
' ListBox2.List(i)的值可以改变,因而能够读取ListBox2中的文件名.

[ 本帖最后由 advanst 于 2010-6-8 03:10 编辑 ]

彭希仁

:我老早也发现这个问题了

彭希仁

改过来了，