求助：依据明细表生成采购清单

Leo灬M

iwangyi 发表于 2019-12-8 14:55
不明白？？？？？？

谢谢你，不过“出线开关柜”“P-DQ-004”这一行是不需要的噢，条件那里能删除掉吗？

iwangyi

Sub CC()
Set cn = CreateObject("ADODB.CONNECTION")
cn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;EXTENDED PROPERTIES=EXCEL 8.0;DATA SOURCE=" & ThisWorkbook.FullName
Sql = "select 名称,型号规格,单位,sum(统计数量),品牌,备注 FROM [明细表$b5:i] where 名称 <> '出线开关柜'group by  名称,型号规格,单位,品牌,备注"
Range("b5").CopyFromRecordset cn.Execute(Sql)
End Sub

Leo灬M

iwangyi 发表于 2019-12-8 15:46
Sub CC()
Set cn = CreateObject("ADODB.CONNECTION")
cn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;EXTEN ...

感谢大佬关照！！

Leo灬M

iwangyi 发表于 2019-12-8 15:46
Sub CC()
Set cn = CreateObject("ADODB.CONNECTION")
cn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;EXTEN ...

您好，昨天您帮我解决的那个BOM汇总采购单的有两个问题想请教一下您。

代码里面的where 名称 <> '出线开关柜'，假如我想增加一个不显示“进线开关柜”这一行，应该怎么加呢？还有，实际运用中我发现采购单那一页输出不会自动排序，该怎么增加自动排序功能呢？

iwangyi

在where的第一条件后加 and 第二条件，在where条件后加 Order by  排序字段名 DESc (DESc为升序，ASc为降序)，自己试着改一下

Leo灬M

iwangyi 发表于 2019-12-9 12:32
在where的第一条件后加 and 第二条件，在where条件后加 Order by  排序字段名 DESc (DESc为升序，ASc为降序 ...

改了一下没反应了- -

Leo灬M

iwangyi 发表于 2019-12-9 12:32
在where的第一条件后加 and 第二条件，在where条件后加 Order by  排序字段名 DESc (DESc为升序，ASc为降序 ...

Sub CC()
Set cn = CreateObject("ADODB.CONNECTION")
cn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;EXTENDED PROPERTIES=EXCEL 8.0;DATA SOURCE=" & ThisWorkbook.FullName
Sql = "select 序号,名称,型号规格,单位,sum(统计数量),品牌,备注 FROM [明细表$a5:i] where 名称 <> '配电箱' and 名称 <> '箱体' group by  序号,名称,型号规格,单位,品牌,备注"
Range("a5").CopyFromRecordset cn.Execute(Sql)
End Sub
改成这样可以运行，但是自动排序  Order by  序号,名称,型号规格,单位,品牌,备注 DESc 就不行了。

iwangyi

ORder by后面排序关键子一个就行了。

Leo灬M

iwangyi 发表于 2019-12-9 18:55
ORder by后面排序关键子一个就行了。

Sub CC()
Set cn = CreateObject("ADODB.CONNECTION")
cn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;EXTENDED PROPERTIES=EXCEL 8.0;DATA SOURCE=" & ThisWorkbook.FullName
Sql = "select 名称,型号规格,单位,sum(统计数量),品牌,备注 FROM [明细表$b5:i] where  名称 <> '配电箱' and 名称 <> '箱体' group by  名称,型号规格,单位,品牌,备注 Order by  品牌 DESc"
Range("b5").CopyFromRecordset cn.Execute(Sql)
End Sub
按您说的改了下终于可以了！SQL语句好像不能自动填充序号的？？

iwangyi

序号代码如下
For I = 0 To N - 5
Cells(I + 5, 1) = I + 1
Next