关于合并表格，实在找不到思路了（已解决，感谢Simon_zhu老师的倾力相助）

onthetrip · 发表于 2010-6-18 13:24

还是、又是关于合并表格，生成新表，实在找不到思路，又来麻烦老师们

[ 本帖最后由 onthetrip 于 2010-7-21 19:04 编辑 ]

onthetrip · 发表于 2010-6-18 13:50

不好意思，要求描述中有一点错误，第五条应为：5、过程表二去掉项目名称，项目规格，得到过程表四
附件已更正这个错误

[ 本帖最后由 onthetrip 于 2010-6-18 13:53 编辑 ]

onthetrip · 发表于 2010-6-18 18:59

绞尽脑汁,已勉强写到这一步:

"select * from" _
& "(select aa.项目名称,aa.项目规格, aa.单位,aa.数量 from [sheet1$] aa left join " _
& "[sheet2$] bb on aa.项目名称&aa.项目规格=bb.项目名称&bb.项目规格 where" _
& " bb.项目名称 is null ) union all" _
& "(select bb.材料名称,bb.材料规格,bb.材料单位,bb.数量*aa.数量 from" _
& "[sheet1$] aa inner join [sheet2$] bb on aa.项目名称&aa.项目规格=bb.项目名称&bb.项目规格)"

复制代码

但怎么都无法把以上代码过渡到下面的语句,提示联合查询语法错误:

"select 项目名称,项目规格,单位,sum(数量) from" _
& "(select aa.项目名称,aa.项目规格, aa.单位,aa.数量 from [sheet1$] aa left join " _
& "[sheet2$] bb on aa.项目名称&aa.项目规格=bb.项目名称&bb.项目规格 where" _
& " bb.项目名称 is null ) union all" _
& "(select bb.材料名称,bb.材料规格,bb.材料单位,bb.数量*aa.数量 from" _
& "[sheet1$] aa inner join [sheet2$] bb on aa.项目名称&aa.项目规格=bb.项目名称&bb.项目规格)" _
& "group by 项目名称,项目规格,单位"

复制代码

请各位老师关注一下,谢谢了

[ 本帖最后由 onthetrip 于 2010-6-18 19:02 编辑 ]

onthetrip · 发表于 2010-6-18 20:50

自己顶一下

onthetrip · 发表于 2010-6-19 11:02

继续等待中。。。。。。。。

onthetrip · 发表于 2010-6-19 16:58

还在等高手路过

jiminyanyan · 发表于 2010-6-19 17:12

我觉得你是不是把一个大问题细化一下,分成几个小问题，先提一个，解决了，再提下一个，会比较好。一个小问题容易说清楚些，一上来，就很复杂，别人用比较小的时间是不大容容易搞明白的。
先从自己身上找一下原因，比一味的顶帖要好。

onthetrip · 发表于 2010-6-19 18:05

呵呵，谢谢你的关注和建议
这些问题如果用分解的方式（像我附件那样的分解步骤）来一个一个提问，相对来说可能确实比较容易得到回复。我个人认为这个问题并不是各个分解步骤的简单相加，因此就算分步能得到解决，以我的水平到最后还是解决不了整体。
我三楼的代码就是各个小步骤的逐渐组合，可到最后还是没法解决整体的问题。

[ 本帖最后由 onthetrip 于 2010-6-19 18:07 编辑 ]

Simon_Zhu · 发表于 2010-7-21 16:51

原帖由 onthetrip 于 2010-6-18 13:24 发表
还是、又是关于合并表格，生成新表，实在找不到思路，又来麻烦老师们

这种最搞脑子了，条件多了，脑子总会象浆糊一样，糊里糊涂的，呵呵。

看看是不是这种效果？

Sub My_test()
Dim Sql$, Sql1$, Sql2$, Sql3$, Sql4$
Dim Conn As Object, rst As Object
Set Conn = CreateObject("Adodb.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;hdr=yes;imex=1;';Data Source=" & ThisWorkbook.FullName
Sheet3.[a2:f65536].ClearContents
Sql = "Select 项目名称,项目规格,Sum(数量) as 数量 from [Sheet1$] Group by 项目名称,项目规格"
Sql1 = "Select distinct aa.项目名称,aa.项目规格,aa.材料名称,aa.材料规格,aa.材料单位, aa.数量 from [sheet2$] aa left join [sheet1$] bb on aa.项目名称=bb.项目名称 and aa.项目规格=bb.项目规格 Where aa.项目名称 is not null and bb.项目名称 is not null"
Sql2 = "Select A.材料名称,A.材料规格,A.材料单位,A.数量*B.数量 as 数量 from (" & Sql1 & ") as A left join (" & Sql & ") as B on A.项目名称=B.项目名称 and A.项目规格=B.项目规格"
Sql3 = "Select aa.项目名称,aa.项目规格, aa.单位,aa.数量 from [sheet1$] aa left join [sheet2$] bb on aa.项目名称=bb.项目名称 And aa.项目规格=bb.项目规格 Where bb.项目名称 is null And bb.项目名称 is null"
Sql4 = "Select 材料名称,材料规格,材料单位,sum(数量) from (" & Sql2 & " Union all " & Sql3 & ") Group by 材料名称,材料规格,材料单位"
Sheet3.Range("a2").CopyFromRecordset Conn.Execute(Sql4)
Conn.Close
Set Conn

复制代码

没有连在一起写，便于让你看清代码。

详见附件
供参考

[ 本帖最后由 Simon_Zhu 于 2010-7-21 16:59 编辑 ]

Simon_Zhu · 发表于 2010-7-21 18:03

尽量使用
A.项目名称=B.项目名称 and A.项目规格=B.项目规格
这样的格式，
尽量不要使用
A.项目名称&A.项目规格=B.项目名称&B.项目规格
这种格式

会影响Sql查询速度。
供参考

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

[求助] 关于合并表格，实在找不到思路了（已解决，感谢Simon_zhu老师的倾力相助）

回复 7楼 jiminyanyan 的帖子