XIN NHỜ MỌI NGƯỜI SỬA LỖI CODE (1 người xem)

[khanhhero]

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.

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