XIN NHỜ MỌI NGƯỜI SỬA LỖI CODE

Liên hệ QC

khanhhero

Thành viên hoạt động
Tham gia
28/7/11
Bài viết
136
Được thích
34
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
 

File đính kèm

  • DATA.xlsb
    16.8 KB · Đọc: 1
  • MAIN.xlsb
    32.4 KB · Đọc: 1
Web KT
Back
Top Bottom