Tính tổng mã barcode (tên sản phẩm) (1 người xem)

[thanhdat.cit]

Gửi các bạn,
Mình có 1 file xuất ra từ máy quét mã vạch (file đính kèm ở dưới), nhờ các bạn tính tổng số lượng của mã barcode
Mình muốn, khi xuất file ra máy tính, bỏ file đó vào 1 thư mục tên ABC và trong thư mục đó có 1 file excel tính tổng, khi bỏ vào thì mình chỉ vào file excel tính tổng nó sẽ tự tính hết cho mình.
Nhờ các bạn giúp mình, mình gà lắm.

 

[Hai Lúa Miền Tây]

Gửi các bạn,
Mình có 1 file xuất ra từ máy quét mã vạch (file đính kèm ở dưới), nhờ các bạn tính tổng số lượng của mã barcode
Mình muốn, khi xuất file ra máy tính, bỏ file đó vào 1 thư mục tên ABC và trong thư mục đó có 1 file excel tính tổng, khi bỏ vào thì mình chỉ vào file excel tính tổng nó sẽ tự tính hết cho mình.
Nhờ các bạn giúp mình, mình gà lắm.

Bạn có thể dùng code sau nhé:

Option Explicit
Sub LocDL_HLMT()
    Dim cn As Object
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No"";"
    With Sheet2
        .Range("A6:AG100").ClearContents
        .Range("A6").CopyFromRecordset cn.Execute("Select F2,F3,F4,F5,sum(F6) " & _
            " From [A:F] " & _
            "where F3 is not null and F6 <> 'Qty' group by F2,F3,F4,F5")
    End With
End Sub

 

[thanhdat.cit]

Bạn có thể dùng code sau nhé:

Option Explicit
Sub LocDL_HLMT()
    Dim cn As Object
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No"";"
    With Sheet2
        .Range("A6:AG100").ClearContents
        .Range("A6").CopyFromRecordset cn.Execute("Select F2,F3,F4,F5,sum(F6) " & _
            " From [A:F] " & _
            "where F3 is not null and F6 <> 'Qty' group by F2,F3,F4,F5")
    End With
End Sub

Hi bạn,
Code này mình phải bỏ vào đâu, mình không rõ lắm, xin chỉ cụ thể hehe