cách lấy đường dẫn tới 1 file nằm trong 1 thư mục bất kỳ và mở thư mục đó lấy nội dung sang file khác

[Nông tiệp]

Chào Anh (chị) trong Group.
em muốn tạo một bảng nhập liệu ở Sheet 1 có đường dẫn vào 1file gốc. Và từ đường dẫn này khi chọn nút "Start"để chạy ra nội dung ở "Sheets 2"
nhưng em không biết viết code Vba như nào ? nếu bỏ được mấy ô không có nội dung ở cột "Part Number"của sheet tạo ra thì càng tốt ạ
Mong các anh (chị) giúp đỡ ạ

 

[caocat]

Bạn xem file đính kèm

Bạn đổi tên sheet2 ở file gốc thành tên DB là ko bị lỗi .

Bài đã được tự động gộp: 11/3/20

anh (keyeutien) tác giả ơi
xem giúp em lỗi trên với ạ

Bạn đổi tên sheet2 ở file gốc thành tên DB là ko bị lỗi .

 

[VetMini]

Theo lệ (dùng nhiều thành luật) ở GPE thì không cần đổi tên gì cả.
Khi code chạy ra lỗi thì người viết code có bổn phận phải sửa đổi. Người cần hỏi bài chỉ việc la lên LỖI !!!

 

[keyeutien]

Mà mỗi lần chọn file đều phải sửa lại như vậy ạ. Hay Bây giờ mình có file đầu vào đều có dạng như (.xls ) thì mình sửa để code có thể đọc được các file có đuôi xls được không anh.

Sory bạn, file gốc bạn đổi tên sheet 2(sheet lấy dữ liệu) thành DB để thuận tiện tránh bị lỗi sau này khi file bạn cần lấy dữ liệu là sheet 3, sheet 4.... Mình đã chỉnh lại để đầu vào chỉ hiển thị file excel, thuận tiện nếu bạn muốn cài thư mục mặc định thì mở vba chỉnh trong module browseFile
Sub browseFilePath()
On Error GoTo err
Dim directory As String
' Cai dat thu muc mac dinh
directory = "C:\"
Chỉnh sửa trong vba xong thì save file lại trước khi sử dụng^^

 

[Nông tiệp]

À... Mà Còn nếu trong file gốc không có sheet2. Chỉ có nội dung ở sheet 1 mà em muốn tách ra lấy code và vị trí md& slot của nó thì viết vba có khác không bạn. vì như file gốc ban đầu mình thì có chỉ có sheet1. sheet 2 là mình tự làm thủ công để tách ra

Bài đã được tự động gộp: 11/3/20

À... Mà Còn nếu trong file gốc không có sheet2. Chỉ có nội dung ở sheet 1 mà em muốn tách ra lấy code và vị trí md& slot của nó thì viết vba có khác không bạn. vì như file gốc ban đầu mình thì có chỉ có sheet1. sheet 2 là mình tự làm thủ công để tách ra

nếu khác. bạn viết lại giúp mình nhé.
mình cảmơn bạn rất nhiều...!

Bài đã được tự động gộp: 11/3/20

Minh cũng sorry bạn. là file lần 1 mình không được xóa sheet 2 đi. làm cho người đọc người viết nhầm

 

[Nông tiệp]

Góp ý cho bạn:
1/ Tại bài 6, tôi nêu "Cái tốt nhất là đề ra cái mục đích mình muốn làm, rồi mới đến cái yêu cầu cần giải quyết", nhưng bạn chẳng quan tâm.
2/ Tại bài 9, tôi đưa cái hình để bạn hình dung được quy trình công việc để có định hướng mà hỏi cho cụ thể, rõ ràng nhưng không thấy bạn có tiến triễn. Trong đó có nút Chọn File và Lấy dữ liệu vào Sheet1, có nghĩa là chọn bất kỳ File Excel nào, trong Folder nào, trong ổ dĩa nào.
3/ Trên từng bài viết có nút Thích, nhưng bạn cũng không biết dùng đến nó để tỏ lòng cám ơn những người đã hỗ trợ mình.

View attachment 233155

em xin lỗi. vì sự thiếu sót và sự vô ý của em ạ
em cảm ơn anh đã nhắc nhở ạ

 

[keyeutien]

À... Mà Còn nếu trong file gốc không có sheet2. Chỉ có nội dung ở sheet 1 mà em muốn tách ra lấy code và vị trí md& slot của nó thì viết vba có khác không bạn. vì như file gốc ban đầu mình thì có chỉ có sheet1. sheet 2 là mình tự làm thủ công để tách ra

Bài đã được tự động gộp: 11/3/20

nếu khác. bạn viết lại giúp mình nhé.
mình cảmơn bạn rất nhiều...!

Bài đã được tự động gộp: 11/3/20

Minh cũng sorry bạn. là file lần 1 mình không được xóa sheet 2 đi. làm cho người đọc người viết nhầm

Mình đã chỉnh lại. file này sẽ dùng vba đọc dữ liệu thô trong file gốc sau đó tách lấy code và vị trí md& slot dán vào sheet mới

 

[Nông tiệp]

Em Trân trọng cảm ơn anh (chị) đã giúp trong phần bài viết của em.
và đặc biệt cảm ơn các tác giả (keyeutien) đã viết code Vba cho em. Mặc dù phần tiêu đề em viết không được cụ thể cho lắm.
Một lần nữa em xin cảm ơn Anh (chị) đã góp ý. cũng như những gì em chưa biết. mong Anh chị trong Group thông cảm ạ