VBA怎么比对文本的差异情况?

hujin111111 · 发表于 2018-7-2 10:44

zopey 发表于 2018-7-2 09:20
Sql2 = "select a.*,b.产品编码 from [汇总$a:c] a left join (select * from [A公司$]) b on b.产品名称 l ...

太牛了! 如果汇总表没有的品种.自动新增的话.应该怎么加一下呀?

hujin111111 · 发表于 2018-7-2 11:12

zopey 发表于 2018-7-2 09:20
Sql2 = "select a.*,b.产品编码 from [汇总$a:c] a left join (select * from [A公司$]) b on b.产品名称 l ...

您这个应该尽量把汇总表的各项值写小.这样就更能处理.是这个意思么?

zopey · 发表于 2018-7-2 11:32

hujin111111 发表于 2018-7-2 11:12
您这个应该尽量把汇总表的各项值写小.这样就更能处理.是这个意思么?

按2列关键字汇总，关键字越短，匹配结果更多。
如果匹配不到缩短关键字！

hujin111111 · 发表于 2018-7-2 12:57

zopey 发表于 2018-7-2 11:32
按2列关键字汇总，关键字越短，匹配结果更多。
如果匹配不到缩短关键字！

明白.我稍微修改了下.但是报下标越界.麻烦帮忙看下.
Sql2 = "select a.*,b.产品编码 from [汇总$a:d] a left join (select * from [A公司$]) b on b.产品名称 like '%' & a.名称 & '%' and b.生产厂家 like '%' & a.厂家 & '%' and b.规格 like '%' & a.规格 & '%'"
Set rst2 = CreateObject("adodb.Recordset")
rst2.Open Sql2, cnn, 1, 1

Do While Not rst2.EOF
arr(rst2("序号"), 1) = arr(rst2("序号"), 1) & "," & rst2("产品编码") ----- 这里报下标越界
rst2.movenext
Loop

zopey · 发表于 2018-7-2 14:36

上传修改后的附件，以便调试。

hujin111111 · 发表于 2018-7-2 15:56

zopey 发表于 2018-7-2 14:36
上传修改后的附件，以便调试。

帮忙看看吧!~~ 谢谢了
我就加了一组规格的对比.其他没动

另外就是.如果没有匹配到..自动新增到汇总表里.这个能实现么?
ID自增长..

zopey · 发表于 2018-7-2 16:48

本来就是模糊匹配，“规格“ 没必要加进来。等编码对照表出来了再通过”编码”添加详细规格。

test3.zip (40.42 KB, 下载次数: 21)

zopey · 发表于 2018-7-2 16:50

hujin111111 发表于 2018-7-2 12:57
明白.我稍微修改了下.但是报下标越界.麻烦帮忙看下.
Sql2 = "select a.*,b.产品编码 from [汇总$a:d] a ...

序号要从1 开始排下去。
第2行 = 1 ，第3行 = 2 ，不然就会越界。

hujin111111 · 发表于 2018-7-2 18:21

zopey 发表于 2018-7-2 16:50
序号要从1 开始排下去。
第2行 = 1 ，第3行 = 2 ，不然就会越界。

收到了!!太感谢了!

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

[求助] VBA怎么比对文本的差异情况?