[Help] Giúp tạo Macro CoppyFile

[dang uy]

Chào cộng đồng Webketoan!
mình có 3 File Data + File 1 + File 2 - (đính kèm bên dưới)
- mình muốn coppy Data ở "File 1" sang File "Data"
và "File 2" coppy tiếp đuôi "File 1" tại File "Data"
các bạn Code giùm mình nha.!
Cảm ơn các bạn..

 

[dang uy]

có ai giúp không ạ

 

[thinhvd]

Chào cộng đồng Webketoan!
mình có 3 File Data + File 1 + File 2 - (đính kèm bên dưới)
- mình muốn coppy Data ở "File 1" sang File "Data"
và "File 2" coppy tiếp đuôi "File 1" tại File "Data"
các bạn Code giùm mình nha.!
Cảm ơn các bạn..

Phần này copy thì liên quan đến ADO nên sẽ hơi phức tạp về Macro.
Bạn có thể tham khảo đoạn code này để tự phát triển thêm:

Sub ConnectFilestofileADO()
'Bluesofts.net
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\\DATA\DATA.xlsx;" & _
"Extended Properties=""Excel 12.0 Macro;HDR=YES"";"
MsgBox "Da ket noi thanh cong"
Dim rst As ADODB.Recordset
Sheet12.Cells.ClearContents
Set rst = cnn.Execute("Select * from DATA")
Dim sodong As Long
sodong = Sheet12.Range("A4").CopyFromRecordset(rst)
MsgBox " So dong copy la: " & sodong
rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing
End Sub

 

[dang uy]

Cảm ơn a!