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

N Khánh

Thành viên mới
Tham gia ngày
22 Tháng mười một 2018
Bài viết
30
Được thích
0
Điểm
13
Tuổi
23
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

snow25

Thành viên gắn bó
Tham gia ngày
24 Tháng bảy 2018
Bài viết
2,139
Được thích
1,912
Điểm
360
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
 

be09

TNMT_Đồng Nai
Tham gia ngày
9 Tháng tư 2011
Bài viết
8,080
Được thích
7,810
Điểm
560
Tuổi
62
Nơi ở
Biên Hòa, Đồng Nai
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.
 

thoai

Thành viên hoạt động
Tham gia ngày
5 Tháng tám 2006
Bài viết
188
Được thích
20
Điểm
670
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.
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ông
 
Top Bottom