Giúp em tự copy 1 file excel theo đường dẫn có sẵn !!

Liên hệ QC

N Khánh

Thành viên mới
Tham gia
22/11/18
Bài viết
30
Được thích
0
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 !!!
 

File đính kèm

  • Book1.xlsx
    10.4 KB · Đọc: 11
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 !!!
Bạn xem code.
Mã:
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
 
Upvote 0
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 !!!
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.
 
Upvote 0
Web KT
Back
Top Bottom