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 (2 người xem)

[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 đỡ ạ

 

[YourCoRoNa]

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 đỡ ạ

Dạ. Hôm nay em cũng rảnh. Đọc từ topic kia sang topic này
Nhưng không hiểu gì hết

 

[Nông tiệp]

Dạ. Hôm nay em cũng rảnh. Đọc từ topic kia sang topic này
Nhưng không hiểu gì hết

em có gửi cả file rồi ạ. tức là từ 1file gốc. mà em muốn tạo 1 file EXcel mới. trong fille này sheets 1 là tạo đường dẫn và mở file để chạy ra chương trình ở sheet 2 ạ

 

[giaiphap]

em có gửi cả file rồi ạ. tức là từ 1file gốc. mà em muốn tạo 1 file EXcel mới. trong fille này sheets 1 là tạo đường dẫn và mở file để chạy ra chương trình ở sheet 2 ạ

Tôi cũng đọc từ chủ đề trước đến chủ đề này vẫn chưa hiểu mục đích của bạn luôn. Bạn phải mô tả từng chi tiết vấn đề cần mong muốn của bạn, cụ thể là mở file nào? lấy dữ liệu ở sheet nào? và lấy xong đưa vào đâu? khi đưa đến đó dữ liệu cũ tính sao? dữ liệu mới như thế nào? giữa dữ liệu mới và cũ có gì liên hệ hay không?... Hàng loạt câu hỏi bạn phải giải thích, nếu có dữ liệu sau khi chạy code thì được như thế nào để anh em còn hiểu mà liệu.

 

[Nông tiệp]

em có gửi cả file rồi ạ. tức là từ 1file gốc. mà em muốn tạo 1 file EXcel mới. trong fille này sheets 1 là tạo đường dẫn và mở file để chạy ra chương trình ở sheet 2 ạ

Tôi cũng đọc từ chủ đề trước đến chủ đề này vẫn chưa hiểu mục đích của bạn luôn. Bạn phải mô tả từng chi tiết vấn đề cần mong muốn của bạn, cụ thể là mở file nào? lấy dữ liệu ở sheet nào? và lấy xong đưa vào đâu? khi đưa đến đó dữ liệu cũ tính sao? dữ liệu mới như thế nào? giữa dữ liệu mới và cũ có gì liên hệ hay không?... Hàng loạt câu hỏi bạn phải giải thích, nếu có dữ liệu sau khi chạy code thì được như thế nào để anh em còn hiểu mà liệu.

Dạ
Cụ thể là em muốn tạo 1 file mới trong sheets 1 tạo đường dẫn mở file "gốc" cần lấy dữ liệu. Để lấy nội dung "sheets 1" file gốc. Sau đó tạo nút chạy lệnh ra nội dung của sheet2. Như file em gửi đính kèm ạ

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

Dạ
Cụ thể là em muốn tạo 1 file mới trong sheets 1 tạo đường dẫn mở file "gốc" cần lấy dữ liệu. Để lấy nội dung "sheets 1" file gốc. Sau đó tạo nút chạy lệnh ra nội dung của sheet2. Như file em gửi đính kèm ạ

Mà Ở trong file đính kèm em có 1 sheets thể hiện các bước mà em muốn làm ạ

 

[be_09]

Dạ
Cụ thể là em muốn tạo 1 file mới trong sheets 1 tạo đường dẫn mở file "gốc" cần lấy dữ liệu. Để lấy nội dung "sheets 1" file gốc. Sau đó tạo nút chạy lệnh ra nội dung của sheet2. Như file em gửi đính kèm ạ
Mà Ở trong file đính kèm em có 1 sheets thể hiện các bước mà em muốn làm ạ

Theo tôi hiểu thì nội dung bạn nêu là quy trình làm ngược.
1/ Bạn không nêu cụ thể, rõ ràng là tại sao lại lấy dữ liệu của bất kỳ Folder và của bất kỳ File? Tại sao bạn không chứa trong 1 File cố định.
2/ Sử dụng 1 File cố định rồi lọc và xuất ra File mới cái mình cần làm.

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.
Bạn có ý tưởng giống như kiểu bà vợ đi chợ: Chỉ biết sách giỏ và cầm tiền theo mà không có ý định sẳn là hôm nay mình nấu món gì? Đến chợ rồi thì rảo khắp chợ thấy món nào ưng ý thì mới mua. Có khi không ưng ý cái gì hết thì lại sách giỏ không về nhà.

 

[VetMini]

...
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.
Bạn có ý tưởng giống như kiểu bà vợ đi chợ: Chỉ biết sách giỏ và cầm tiền theo mà không có ý định sẳn là hôm nay mình nấu món gì? Đến chợ rồi thì rảo khắp chợ thấy món nào ưng ý thì mới mua. Có khi không ưng ý cái gì hết thì lại sách giỏ không về nhà.

Bạn nói vậy tội nghiệp bà vợ đi chợ.
Trước khi xách giỏ đi, bà ta đã có một dự định sẵn: chỉ mua trong vòng ngân sách ngày, trường hợp đặc biệt lắm mới cho vượt ngân sách.
Và bà ta đã có sẵn một thói quen tốt: đại khái biết là mấy bữa trước mình đã ăn gì (tránh món trùng), và biết được thời tiết ngày hôm nay hợp với những món gì, chồng khoái khẩu những gì và con chuộng những gì.
Nói cách khác, khi bắt đầu xách giỏ đi chợ thì bà ta đã biết chính xác mình có gì, cần gì và có thể quyền biến ra sao.
Chuyện xách giỏ không về chỉ xảy ra cho mấy cô dâu mới về nhà chồng, không có kinh nghiệm.

Thực ra, nếu các bạn hỏi ở đây được 1/2 cái tài của mấy bà đi chợ thì nhiều vấn đề đã giải quyết chỉ trong vòng 1 câu hỏi và khoảng 3 câu trả lời (3 câu trả lời khác nhau, diễn tả sự đa dạng của các giải pháp).

 

[Quang_Hải]

Ý của chủ thớt là như vầy nè. Ban đầu khi truy xuất dữ liệu từ chương trình ra bạn ấy có nội dung ban đầu là một chùm. Tiếp theo là bạn ấy dùng chức năng TextToColunm để tách dữ liệu ra dựa trên dấu ",". Kết quả tách ra ở sheet2 file gốc. Kết quả có chứa những dòng bị trống ở cột F nên chủ thớt không cần lấy, còn lại có bao nhiêu cũng nhặt hết ra kết quả.

Thay vì mở file gốc ra làm có xíu nhưng không thích vì thích VBA cho nó hoàng tráng

Đoán vậy đó

 

[be_09]

Ý của chủ thớt là như vầy nè. Ban đầu khi truy xuất dữ liệu từ chương trình ra bạn ấy có nội dung ban đầu là một chùm. Tiếp theo là bạn ấy dùng chức năng TextToColunm để tách dữ liệu ra dựa trên dấu ",". Kết quả tách ra ở sheet2 file gốc. Kết quả có chứa những dòng bị trống ở cột F nên chủ thớt không cần lấy, còn lại có bao nhiêu cũng nhặt hết ra kết quả.

Thay vì mở file gốc ra làm có xíu nhưng không thích vì thích VBA cho nó hoàng tráng

Đoán vậy đó

Nếu em đoán như vậy thì chủ Topic phải nêu rõ là em có dữ liệu từ phần mềm xuất ra, giờ muốn lấy dữ liệu của bất kỳ File nào đó rồi phân tích dữ liệu.

Do chủ Topic không nêu cụ thể nên không ai biết đường đâu mà lần hoặc có thể nêu vầy còn tìm ra "Tôi biết thằng ăn trộm nó nằm trong bồ lúa nhưng tôi không chỉ đâu".

Chắc có thể yêu cầu của chủ Topic là làm theo trình tự của hình chăng:

 

[Nông tiệp]

Ý của chủ thớt là như vầy nè. Ban đầu khi truy xuất dữ liệu từ chương trình ra bạn ấy có nội dung ban đầu là một chùm. Tiếp theo là bạn ấy dùng chức năng TextToColunm để tách dữ liệu ra dựa trên dấu ",". Kết quả tách ra ở sheet2 file gốc. Kết quả có chứa những dòng bị trống ở cột F nên chủ thớt không cần lấy, còn lại có bao nhiêu cũng nhặt hết ra kết quả.

Thay vì mở file gốc ra làm có xíu nhưng không thích vì thích VBA cho nó hoàng tráng

Đoán vậy đó

ý của em làm vậy đấy. vì công việc của em nó cứ lặp đi lặp lại nên em muốn dùng Vba để tạo đường dẫn. và 1 nút Start để đỡ tốn Time

nên em mong các bác giúpem ạ

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

ý của em làm vậy đấy. vì công việc của em nó cứ lặp đi lặp lại nên em muốn dùng Vba để tạo đường dẫn. và 1 nút Start để đỡ tốn Time

nên em mong các bác giúpem ạ

em cũng không biết truyền tải thế nào để các bác hiểu nưa

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

Nếu em đoán như vậy thì chủ Topic phải nêu rõ là em có dữ liệu từ phần mềm xuất ra, giờ muốn lấy dữ liệu của bất kỳ File nào đó rồi phân tích dữ liệu.

Do chủ Topic không nêu cụ thể nên không ai biết đường đâu mà lần hoặc có thể nêu vầy còn tìm ra "Tôi biết thằng ăn trộm nó nằm trong bồ lúa nhưng tôi không chỉ đâu".

Chắc có thể yêu cầu của chủ Topic là làm theo trình tự của hình chăng:

View attachment 233097

ANh có thể chỉ cho em được không ạ

 

[Nông tiệp]

ý của em làm vậy đấy. vì công việc của em nó cứ lặp đi lặp lại nên em muốn dùng Vba để tạo đường dẫn. và 1 nút Start để đỡ tốn Time

nên em mong các bác giúpem ạ

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

em cũng không biết truyền tải thế nào để các bác hiểu nưa

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

ANh có thể chỉ cho em được không ạ

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

các bác giúp em mới

 

[keyeutien]

View attachment 233115

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

các bác giúp em mới

Bạn xem file đính kèm

 

[Nông tiệp]

Bạn xem file đính kèm

em cảm ơn Bác nhé
nhưng em gặp 1 vẫn đề : là khi chọn file vào nói lại báo lỗi tên file là sao ấy ạ

 

[Nông tiệp]

em cảm ơn Bác nhé
nhưng em gặp 1 vẫn đề : là khi chọn file vào nói lại báo lỗi tên file là sao ấy ạ

Em xem đi xem lại mà không biết code sai hay là định dạng file đầu vào hay không nữa

 

[ppc0312]

Em xem đi xem lại mà không biết code sai hay là định dạng file đầu vào hay không nữa

Trong Sub main() chú ý dòng này, sửa lại đúng như sau (nếu đúng như "file goc.xls" trên bài #1)
GetData sourceFile, "chuong trinh 1", "A6:A", Sheets("GetData").Range("A8"), False, False

 

[Nông tiệp]

Trong Sub main() chú ý dòng này, sửa lại đúng như sau (nếu đúng như "file goc.xls" trên bài #1)
GetData sourceFile, "chuong trinh 1", "A6:A", Sheets("GetData").Range("A8"), False, False

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.

 

[ppc0312]

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.

Bạn phải hỏi tác giả của code đó (keyeutien) trên
Về cơ bản họ làm theo yêu cầu của bạn mà, phải chọn file từ thư mục, ..., cũng như các điều bạn đã hỏi
Muốn rõ ràng thì nên trình bày sao tổng quát dễ hiểu, sát với yêu cầu thực tế

 

[Nông tiệp]

Bạn phải hỏi tác giả của code đó (keyeutien) trên
Về cơ bản họ làm theo yêu cầu của bạn mà, phải chọn file từ thư mục, ..., cũng như các điều bạn đã hỏi
Muốn rõ ràng thì nên trình bày sao tổng quát dễ hiểu, sát với yêu cầu thực tế

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

vâng ạ. em xin cảm ơn các Anh Chị đã giúp em trong phần này ạ.

 

[Nông tiệp]

Bạn xem file đính kèm

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

 

[be_09]

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

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.

 

[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 ạ