|
本帖最后由 haixiao88 于 2019-6-13 14:46 编辑
如图所示,希望按将同一入库单号中相同存货编码的生产数进行汇总到“Sheet2”中,该如何处理呢?
我是这样写的,但没有任何结果。
Public Sub 汇总()
Dim strcon As String
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strsql As String, str1 As String
Dim hz As Worksheet
On Error Resume Next
Set cnn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cnn.Open "Provider=Microsoft.Ace.Oledb.12.0;Extended Properties='Excel 12.0';Data Source=" & ThisWorkbook.FullName
strsql = "select 产品入库单号,存货编码,存货名称,规格型号,sum(生产数) from [Sheet1$] group by 产品入库单号,存货编码,存货名称,规格型号;"
Set hz = Worksheets("Sheet2")
hz.Activate
With hz
.Range("a4:P1000").ClearContents
Range("a4").CopyFromRecordset rs
'.Columns.AutoFit
End With
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Sub
|
|