Sử Dụng ADO & VBA Tổng Hợp Nhiều File Trong Folder Và Update File Lên Server (1 người xem)

[Kiều Mạnh]

Mấy ngày nay Mạnh lại nổi hứng với ADO Tổng hợp dữ liệu nhiều File Trong Folder ....
Vậy là lục lại Các bài viết về ADO trên GPE nghiên cứu ....
Lục lại các Bài của Anh Hải viết về ADO và nghiên cứu thuật Toán trong Code của Anh....

Vậy là Mạnh Copy code từ các nguồn trên lại:

Tổng hợp nghiên cứu, chế tác lại theo ý mình và viết thêm Hàm ...làm sao cho sử dụng đơn giản, ngắn gọn và khác biệt một chút là:

Sử dụng Sub Main Chạy một dòng code duy nhất Truyền các tham số vào là có thể Tổng Hợp được dữ liệu từ 1 - 100 File trong Folder có tên Sheet và cấu trúc dữ liệu như nhau ...(không tính các dòng khai báo và Set kết nối với File *.dll)

Lưu ý (Tổng số dòng của các file cộng lại không vượt quá số dòng của 1 Sheet khi gán kết quả xuống... nếu quá là lỗi...)

1/ Các Bạn tải File về muốn sử dụng được thì phải đăng ký sử dụng File UpdateServer.dll với Win thì mới sử dụng được...

Nếu máy là Win7 trở lên mà UAC đang OFF thì các bạn Chạy File Install DLL.bat ....

Nếu máy mà UAC đang ON thì chạy File RegisterLicense.exe và chọn Yes thì nó sẻ giải nén vào System32 File UpdateServer.dll và đăng ký nó

2/Các hướng dẫn sử dụng hàm mình viết chi tiết trong VBA

3/ Mình viết Thêm một Code sẽ áp dụng cho các File con khi muốn Update dữ liệu lên Server thì chỉ việc khai báo đường dẫn đầy đủ xong khi nào muốn update thì chạy code 1 cái là bản sao của nó được update lên Server

Trong Folder đó có File Tổng hợp sẽ làm nhiện vụ tổng hợp hết các File con lại vào một Sheet xong muốn làm gì tùy ý.....

4/ Code trong File Tổng hợp mình viết Áp dụng cho lấy dữ liệu từ 1 file đến n+1 file với mấy dạng khác nhau ....các Bạn có thể tùy biến mà sử dụng vào công việc của mình cho Hiệu quả ... tất các các file con điều sử dụng chung Code trong File *.dll được hết

5/ File *.dll Mình không cá nhân hóa một cái gì Ngoại trừ một cái thông Báo Msgbox Tên Mình và Chữ GPE viết tắt để ngầm cảm ơn Các Bạn và GPE đã cho Mạnh có được một kiến thức về code tạm đủ dùng cho công Việc của Mình

6/ Nếu Bạn nào thấy tiện ích ứng dụng tốt cho công việc của mình thì cứ vậy mà xài Hoàn Toàn Miễn Phí

7/ Mạnh nhờ các Bạn tải về Test dùm trên các máy khác xem có chạy được không báo lại mình với để mình điều chỉnh code

Mình viết trên nên tảng Win32 + Office 32 bít vậy với 64 bít là lỗi

Kiều Mạnh Cảm ơn Anh Hải rất nhiều lâu lâu ghé chơi chỉ cho Mạnh Những thuật Toán rất hay về code .....code trong File *.dll có sử dụng một phần code của Anh ..... Cảm ơn Anh nhiều Nhiều

Cảm ơn tất cả các Bạn

 

[doveandrose]

Mình viết trên nên tảng Win32 + Office 32 bít vậy với 64 bít là lỗi

nói vậy là không cho những người như tôi tham gia ?
haizz , thôi thì khi có nhu cầu tổng hợp , tôi phải nhờ anh hpkhuong giúp vậy . híc

 

[Kiều Mạnh]

nói vậy là không cho những người như tôi tham gia ?
haizz , thôi thì khi có nhu cầu tổng hợp , tôi phải nhờ anh hpkhuong giúp vậy . híc

Tại Mạnh không có win64 nên ko Test được nên ko biết làm sao nữa Sorry nhiều nha ....Bạn test dùm Mạnh trên Win64 đi xem tình hình sao

 

[Kiều Mạnh]

Oh. Win 64 + Off 64 => Nhưng sẽ, không thử đâu...Vì thấy cái gì mà đăng ký .dll thì ngại thử lắm...haha
-------------------
Vì thực sự có chạy được đâu mà thử...(họ chỉ chơi với 32 thôi ...ứ chơi vơi chúng ta.)
Cho nên bạn Dove có mời mình cũng không thể rồi...hehe

Thì Bạn thử Test cho Mạnh trên 32 và 64 một cái xem tình hình sao rồi ta tính tiếp đi ....

Mai mốt rảnh Mạnh Qua Lê Văn Việt Uống Cafe xong ta đi Vi Hành một tí ha