Sub insertdata_sheet()
Dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\du_lieu_vba.xlsm" & ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
'conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\du_lieu_vba.xlsm" & ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
'conn.Open
Dim query As String
query = "Insert Into [outer$] select * from [CHAT_LUONG$]"
conn.Execute query
conn.Close
'Set conn = nothig
End Sub
Dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\du_lieu_vba.xlsm" & ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
'conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\du_lieu_vba.xlsm" & ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
'conn.Open
Dim query As String
query = "Insert Into [outer$] select * from [CHAT_LUONG$]"
conn.Execute query
conn.Close
'Set conn = nothig
End Sub