Em có viết đoạn code copy dữ liệu vào file đóng nhưng nó báo lỗi update, nhờ mọi người xem giúp em với ạ. Em cám ơn mọi người.
Mã:
Sub SQL_Code()
On Error Resume Next
Dim cn As Object
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider= Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\DATA.xlsb;extended properties=""excel 12.0;HDR=Yes;"";"
cn.Execute "UPDATE (SELECT P&L_Major_Key, T_03 FROM [DATA$A1:M535]) a " _
& "INNER JOIN " _
& "(SELECT P&L_Major_Key, SUM(T_03) FROM [Excel 12.0;HDR=Yes;DATABASE=" & ThisWorkbook.FullName & "].[MAIN$A1:B1072] GROUP BY P&L_Major_Key) b " _
& "ON a.P&L_Major_Key=b.P&L_Major_Key " _
& "SET a.P&L_Major_Key=b.P&L_Major_Key,a.T_03=b.T_03"
End Sub