lấy dữ liệu file excel đang đóng bằng ADO (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

ducdinh1987

Thành viên thường trực
Tham gia
10/6/10
Bài viết
266
Được thích
75
Nghề nghiệp
Kỹ sư công nghệ sinh học
Chào anh chị,

Anh chị cho em hỏi có cách nào lấy dữ liệu file excel đang đóng có password bằng ADO không?

(Không dùng lệnh Workbooks.Open(ThisWorkbook.Path & "\******.xls", , , , 1234) để mở file lên rồi mới lấy)

Em cảm ơn
 
Chào anh chị,

Anh chị cho em hỏi có cách nào lấy dữ liệu file excel đang đóng có password bằng ADO không?

(Không dùng lệnh Workbooks.Open(ThisWorkbook.Path & "\******.xls", , , , 1234) để mở file lên rồi mới lấy)

Em cảm ơn
Chơi ADO khó quá ta bỏ vậy ko dùng ADO Workbooks.Open thì ta dùng cái khác lấy có chịu ko mình tính

Nếu đặt Pass Open tức là đòi hỏi Bảo mật cao 1 tí mà cho Pass vào VBA thì có cũng như ko ...

Vậy mình đề xuất là khi lấy dữ liệu nhập Pass = tay chịu ko ...như vậy mới tạm keo là bảo mật được
 
Upvote 0
Dùng cái nào thế anh Mạnh. Chỉ giáo em phương pháp với.
VD: ta có File Tạm keo Data.xlsb là File đang đóng hoàn toàn

Pass Open là: 1

tên Sheet cần lấy là : Test

Vùng dữ liệu cần lấy: [A10:J100]

Vậy ta không sử dụng ADOOpen file lên mà vẫn lấy được dữ liệu theo 2 ý nhỏ sau:

1/ có hộp thoại hiện lên cho ta nhập Pass Open khi lấy dữ liệu (File Data.xlsb vẫn đóng Hoàn Toàn)

2/ Sử dụng Senkeys cho nó nhập Pass Open luôn (có nghĩa là Pass Open cho luôn vào code)

Vậy ý bạn Sao ....và xin mời các bạn có nhả hứng tham gia thêm cho vui ....nếu Sau vài ngày chưa có Ai code thì Mạnh Úp đáp án lên

Chúc Vui chơi vui vẻ ....chủ thớt chờ nha ....
Mạnh mượn đề tài này quậy 1 tẹo --=0--=0//**///**/

Xin cảm ơn
 
Lần chỉnh sửa cuối:
Upvote 0
Vậy ý bạn Sao ....và xin mời các bạn có nhả hứng tham gia thêm cho vui ....nếu Sau vài ngày chưa có Ai code thì Mạnh Úp đáp án lên

Chúc Vui chơi vui vẻ ....chủ thớt chờ nha ....
Mạnh mượn đề tài này quậy 1 tẹo --=0--=0//**///**/

Xin cảm ơn

chờ đợi anh Mạnh trỗ tài thôi chứ em chưa nghĩ ra cách ;;;;;;;;;;;
 
Lần chỉnh sửa cuối:
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom