Tổng hợp dữ liệu từ nhiều file excel có mật khẩu

[nttrung_proneu]

Chào các anh/chị trên diễn đàn!
Sau khi lần mò mãi ở trên này nhưng vẫn không ra vấn đề cụ thể (vì em mới tập bơi vài hôm mà đã phải bơi giữa một rừng kiến thức^^),
thì em mạo muội viết ra đây nhờ anh/chị giải đáp giúp ạ!
Hiện tại em có khoảng 60 file excel (xls) có mật khẩu mở file giống nhau và đã biết.
Các anh/chị hướng dẫn em phải viết code như thế nào để lấy dữ liệu từ các file này mà không cần mở file lên (có thể chạy ngầm cũng được) để sao chép vào một file tổng hợp đang mở (phần phía sau em lại tự mò mẫm tiếp ạ - nếu không vận dụng được em lại mang lên hỏi các anh/chị - bước từng bước một :">).
Em xin cảm ơn rất nhiều ạ!

 

[huuthang_bd]

Đây là lệnh mở 1 workbook với đường dẫn và password đã biết đồng thời gán nó vào một biến.

Set Wb = Workbooks.Open(Filename:="D:\ABC.xls", Password:="123456")

 

[nttrung_proneu]

Đây là lệnh mở 1 workbook với đường dẫn và password đã biết đồng thời gán nó vào một biến.

Set Wb = Workbooks.Open(Filename:="D:\ABC.xls", Password:="123456")

Nếu không muốn mở hoặc chỉ mở ngầm thì phải thêm dòng lệnh nào nữa vậy anh?

 

[huuthang_bd]

Không muốn mở thì không làm gì (Nhưng tôi không biết không mở thì lấy dữ liệu như thế nào nhé)
"Mở ngầm" là cách bạn gọi thôi chứ Excel không có cái nào gọi là mở ngầm cả. Nếu bạn muốn mở nhưng không muốn nhìn thấy nó mở thì dùng lệnh Application.ScreenUpdating = False ở đầu thủ tục và Application.ScreenUpdating = True ở cuối thủ tục.

 

[befaint]

Muốn mở ngầm, mở không nhìn thấy gì cả thì lúc mở mình tắt màn hình đi hoặc nhắm tịt, nhắm ti hí mắt lại.

 

[Kiều Mạnh]

Nhiều File mà File To bự mà cứ Workbooks.Open .... chạy code xong ra phà cafe xong làm bà tám đã đi xong vô ngó ko biết sao nữa
trên GPE này chưa thấy hay chưa có ( Nếu có bỏ qua ) xài ADO truyền cái Pass Open đó vào xong lấy dữ liệu he ... nếu có nên làm theo cách đó tạm ok

 

[nttrung_proneu]

Không muốn mở thì không làm gì (Nhưng tôi không biết không mở thì lấy dữ liệu như thế nào nhé)
"Mở ngầm" là cách bạn gọi thôi chứ Excel không có cái nào gọi là mở ngầm cả. Nếu bạn muốn mở nhưng không muốn nhìn thấy nó mở thì dùng lệnh Application.ScreenUpdating = False ở đầu thủ tục và Application.ScreenUpdating = True ở cuối thủ tục.

Muốn mở ngầm, mở không nhìn thấy gì cả thì lúc mở mình tắt màn hình đi hoặc nhắm tịt, nhắm ti hí mắt lại.

Với mỗi mắt 9 độ cận như em thì còn có 1 cách nữa để không nhìn thấy gì là tháo kính ra 2 anh vui tính ạ

Nhiều File mà File To bự mà cứ Workbooks.Open .... chạy code xong ra phà cafe xong làm bà tám đã đi xong vô ngó ko biết sao nữa
trên GPE này chưa thấy hay chưa có ( Nếu có bỏ qua ) xài ADO truyền cái Pass Open đó vào xong lấy dữ liệu he ... nếu có nên làm theo cách đó tạm ok

Em cũng đi tìm mòn mỏi mà không thấy được cái dòng in đậm đấy anh ơi

 

[nttrung_proneu]

Đây là lệnh mở 1 workbook với đường dẫn và password đã biết đồng thời gán nó vào một biến.

Set Wb = Workbooks.Open(Filename:="D:\ABC.xls", Password:="123456")

Muốn chọn nhiều workbooks có chung một password để mở ra thì sẽ phải viết code như thế nào anh?

 

[VetMini]

Nhiều File mà File To bự mà cứ Workbooks.Open .... chạy code xong ra phà cafe xong làm bà tám đã đi xong vô ngó ko biết sao nữa
trên GPE này chưa thấy hay chưa có ( Nếu có bỏ qua ) xài ADO truyền cái Pass Open đó vào xong lấy dữ liệu he ... nếu có nên làm theo cách đó tạm ok

Ý kiến thì hay. Thực tế là bạn chưa thấy bởi vì nó không giản dị vậy.
Tôi nói "không giản dị" có nghĩa là phải đi đường vòng. Cả hai bộ máy Jet và ACE tự chúng không có khả năng giải mã file Excel.

 

[Kiều Mạnh]

Ý kiến thì hay. Thực tế là bạn chưa thấy bởi vì nó không giản dị vậy.
Tôi nói "không giản dị" có nghĩa là phải đi đường vòng. Cả hai bộ máy Jet và ACE tự chúng không có khả năng giải mã file Excel.

có cách nào ta SendKeys cái Pass đó không nhỉ ???

 

[NgoctrinhUSA]

có cách nào ta SendKeys cái Pass đó không nhỉ ???

Chắc dùng pm ngoài mở file có pass open dc không anh nhỉ