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

onthetrip

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

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

onthetrip

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

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

onthetrip

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

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

复制代码

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

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

复制代码

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

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

onthetrip

自己顶一下

onthetrip

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

onthetrip

还在等高手路过

jiminyanyan

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

onthetrip

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

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

Simon_Zhu

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

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

看看是不是这种效果？

1. Sub My_test()
   
2.     Dim Sql$, Sql1$, Sql2$, Sql3$, Sql4$
   
3.     Dim Conn As Object, rst As Object
   
4.     Set Conn = CreateObject("Adodb.Connection")
   
5.         Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;hdr=yes;imex=1;';Data Source=" & ThisWorkbook.FullName
   
6.             Sheet3.[a2:f65536].ClearContents
   
7.             
   
8.             Sql = "Select 项目名称,项目规格,Sum(数量) as 数量 from [Sheet1$] Group by 项目名称,项目规格"
   
9.             
   
10.             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"
    
11.             
    
12.             Sql2 = "Select A.材料名称,A.材料规格,A.材料单位,A.数量*B.数量 as 数量 from (" & Sql1 & ") as A left join (" & Sql & ") as B on A.项目名称=B.项目名称 and A.项目规格=B.项目规格"
    
13.             
    
14.             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"
    
15.                                 
    
16.             Sql4 = "Select 材料名称,材料规格,材料单位,sum(数量) from (" & Sql2 & " Union all " & Sql3 & ") Group by 材料名称,材料规格,材料单位"
    
17.             
    
18.             Sheet3.Range("a2").CopyFromRecordset Conn.Execute(Sql4)
    
19.         
    
20.         Conn.Close
    
21.     Set Conn

复制代码

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

详见附件
供参考

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

Simon_Zhu

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

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