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 tích cực
Tham gia ngày
24 Tháng bảy 2018
Bài viết
1,492
Được thích
1,186
Điểm
210
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

Biên Hòa - Đồng Nai
Tham gia ngày
9 Tháng tư 2011
Bài viết
7,502
Được thích
7,223
Điểm
560
Tuổi
61
Nơi ở
P. Tân Mai, 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
166
Được thích
10
Đ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