Bạn xem code.Em có đường dẫn ở ô F1. Giờ liệu có cách nào để sau khi nhập xong giữ liệu ở cột A B, thì sẽ tự copy đc 1 file excel vào đường dẫn ở ô F1 không ạ, em cảm ơn mọi người nhiều !!!
Sub luudulieu()
Dim d As String, lr As Long, arr, ws As Workbook
d = Range("F1").Value
lr = Range("A" & Rows.Count).End(xlUp).Row
arr = Range("A1:B" & lr).Value
Set ws = Workbooks.Open(d)
lr = ws.Sheets("sheet1").Range("A" & Rows.Count).End(xlUp).Row
ws.Sheets("sheet1").Range("A" & lr).Resize(UBound(arr, 1), 2).Value = arr
ws.Close True
End Sub
Nên dùng code để mở ổ dĩa và chọn bất kỳ File để lấy dữ liệu vào nó sẽ linh động hơn.Em có đường dẫn ở ô F1. Giờ liệu có cách nào để sau khi nhập xong giữ liệu ở cột A B, thì sẽ tự copy đc 1 file excel vào đường dẫn ở ô F1 không ạ, em cảm ơn mọi người nhiều !!!
có code nào mở thư mục và chọn lấy một số file bất kỳ và đường dẫn của các file này sẽ liệt kê ra từng cell khôngNên dùng code để mở ổ dĩa và chọn bất kỳ File để lấy dữ liệu vào nó sẽ linh động hơn.
Cho mình link nhé bạnCó rất nhiều.
DIỄN ĐÀN GIẢI PHÁP EXCEL