工厂领料单，输入批号引用入库单中批号对应的信息

魂断蓝桥

從薪⒈兲. 发表于 2018-8-6 11:03
A列的日期是采购入库日期，A、B、C、D列即是采购入库的信息，根据品名、规格、批号汇总采购入库数量、 ...

Option Explicit


Sub 查询()
Dim cnn As Object
Dim Sql As String
Set cnn = CreateObject("ADODB.CONNECTION")
cnn.Open "Provider=Microsoft.ACE.OleDb.12.0;Extended Properties='Excel 12.0;HDR=YES'; Data Source=" & ThisWorkbook.FullName
Sql = "select A.日期,A.品名,A.规格,A.批号,A.米数,A.重量,B.米数,B.重量,C.米数,C.重量,D.米数,D.重量,E.米数,E.重量 from " _
& "((((select 日期,品名,规格,批号,SUM(米数) as 米数,SUM(重量) as 重量 FROM [采购入库表$A2:P] GROUP BY 日期,品名,规格,批号) A " _
& " Left Join " _
& "(SELECT 批号,SUM(米数) as 米数,SUM(重量) as 重量 FROM [领料表$A2:P] GROUP BY 批号) B ON A.批号=B.批号) " _
& " Left Join " _
& "(SELECT 批号,SUM(米数) as 米数,SUM(重量) as 重量 FROM [良品退库表$A2:P] GROUP BY 批号) C ON A.批号=C.批号)" _
& " Left Join " _
& " (SELECT 批号,SUM(米数) as 米数,SUM(重量) as 重量 FROM [不良品退库表$A2:P] GROUP BY 批号) D ON A.批号=D.批号)" _
& " Left Join " _
& "(SELECT 批号,SUM(米数) as 米数,SUM(重量) as 重量 FROM [剩余料退库表$A2:P] GROUP BY 批号) E ON A.批号=E.批号"
[A10].CopyFromRecordset cnn.Execute(Sql)
cnn.Close: Set cnn = Nothing
End Sub

從薪⒈兲.

魂断蓝桥 发表于 2018-8-6 13:47
Option Explicit

谢谢蓝老师，我又加了一项数据，显示FROM 子句语法错误
Dim cnn As Object
Dim Sql As String
Set cnn = CreateObject("ADODB.CONNECTION")
Worksheets("原膜库存").Range("a4:z10000").ClearContents
cnn.Open "Provider=Microsoft.ACE.OleDb.12.0;Extended Properties='Excel 12.0;HDR=YES'; Data Source=" & ThisWorkbook.FullName
Sql = "select A.日期,A.品名,A.规格,A.批号,A.米数,A.重量,B.米数,B.重量,C.米数,C.重量,D.米数,D.重量,E.米数,E.重量,F.米数,F.重量 from " _
& "((((select 日期,品名,规格,批号,SUM(米数) as 米数,SUM(重量) as 重量 FROM [采购入库表$A2:P] GROUP BY 日期,品名,规格,批号) A " _
& " Left Join " _
& "(SELECT 批号,SUM(米数) as 米数,SUM(重量) as 重量 FROM [工单领料表$A2:P] GROUP BY 批号) B ON A.批号=B.批号) " _
& " Left Join " _
& "(SELECT 批号,SUM(米数) as 米数,SUM(重量) as 重量 FROM [工单退库表$A2:P] GROUP BY 批号) C ON A.批号=C.批号)" _
& " Left Join " _
& " (SELECT 批号,SUM(米数) as 米数,SUM(重量) as 重量 FROM [不良品退库表$A2:P] GROUP BY 批号) D ON A.批号=D.批号)" _
& " Left Join " _
& "(SELECT 批号,SUM(米数) as 米数,SUM(重量) as 重量 FROM [管压退库表$A2:P] GROUP BY 批号) E ON A.批号=E.批号)" _
& " Left Join " _
& "(SELECT 批号,SUM(米数) as 米数,SUM(重量) as 重量 FROM [供应商退货表$A2:P] GROUP BY 批号) F ON A.批号=F.批号"
[A3].CopyFromRecordset cnn.Execute(Sql)
cnn.Close: Set cnn = Nothing

從薪⒈兲.

魂断蓝桥 发表于 2018-8-6 13:47
Option Explicit

蓝老师，问题解决了。少了一个（  ；
用批号查找时，批号是纯数字，10位左右，出现表达式中的类型不匹配 是什么原因？

魂断蓝桥

從薪⒈兲. 发表于 2018-8-7 14:08
蓝老师，问题解决了。少了一个（  ；
用批号查找时，批号是纯数字，10位左右，出现表达式中的类型不匹配 ...

一般的情况是 有一个表批号是文本，有一个表批号是数值。

你把所有的表格中的批号列通过分列都设置成文本，或者是数值，必须统一。

然后再试一试。