Sub CapNhatDL_HLMT()
Dim strSQL As String
strSQL = "Select F9,F3 from [KL1$A7:M16] " & _
"Union all Select F9,F3 from [KL2$A7:M16] " & _
"Union all select F9,F3 from [EXCEL 12.0;HDR=NO;Database=" & ThisWorkbook.Path & "\FILE INPUT.XLSX].[KL1$A7:I16] " & _
"Union all select F9,F3 from [EXCEL 12.0;HDR=NO;Database=" & ThisWorkbook.Path & "\FILE INPUT.XLSX].[KL2$A7:I16] "
strSQL = "Select F9 as [CodeNo], Sum(F3) as KhoiLuong from (" & strSQL & ") Group By F9"
strSQL = "Select CodeNo,KhoiLuong,F4 as Gia from (" & strSQL & ") A INNER JOIN [EXCEL 12.0;HDR=NO;Database=" & ThisWorkbook.Path & "\FILE INPUT.XLSX].[KL1$A7:I16] B ON A.CodeNo=B.F9"
With CreateObject("ADODB.Connection")
.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=NO"""
Sheet1.Range("CO2").CopyFromRecordset .Execute(strSQL)
.Execute ("Update [CAU TAO GIA$A2:N11] a inner join [CAU TAO GIA$CO2:CQ20] B on a.F8=b.F1 set a.F7=B.F2, a.F14=b.F3 ")
Sheet1.Range("CO2:CQ20").ClearContents
End With
End Sub