xin code VBA để nén các file có điều kiện

[virutxlove]

Em có tầm 50 nhà cung cấp, hàng tuần e đều phải gửi mail cho từng nhà cung cấp, trong mail phải đính kèm 2 file excel + 1 file PDF.
Anh/chị cho em xin code VBA để nén 2 file excel + 1 file pdf ở trên thành 1 file rar. để e gửi mail hàng loạt được không ạ?
Các file của em đang lưu ntn rồi ạ, tên file đều có chung phần đầu là W51_[Tên ncc] như bên dưới ạ.

 

[Kiều Mạnh]

Em có tầm 50 nhà cung cấp, hàng tuần e đều phải gửi mail cho từng nhà cung cấp, trong mail phải đính kèm 2 file excel + 1 file PDF.
Anh/chị cho em xin code VBA để nén 2 file excel + 1 file pdf ở trên thành 1 file rar. để e gửi mail hàng loạt được không ạ?
Các file của em đang lưu ntn rồi ạ, tên file đều có chung phần đầu là W51_[Tên ncc] như bên dưới ạ.

View attachment 284907

1/ cài WinRaR xong chọn nó nén cho
2/ Cái ExcelTools của tôi có chức năng nén và giải nén
3/ Nếu dùng API thì tìm bài của tôi
4/ nếu thích dùng EXE chạy cmd mai mốt rảnh úp cho
5/ tìm code trên này VBA có đầy ra

 

[Kiều Mạnh]

vui chơi với Zip file cmd 1 chút

1/ tải File sau về giải nén vào C:\
2/ mở cmd copy code sau dán vào xong Enter ... xem chỉ dẫn cách nén file

C:\ZipFiles\ZipFiles.exe -h -z -u

3/ xem hình

 

[Kiều Mạnh]

VD: Tôi nén Folder sau

D:\Newfolder

Nơi lưu File Zip như sau

D:\Database_Server\Manh.zip

Vậy cấu trúc cmd là

C:\ZipFiles\ZipFiles.exe -z D:\Newfolder D:\Database_Server\Manh.zip

Xem hình sau khi nén thành công




VD: Tôi nén 1 File

Cấu trúc cmd như sau

C:\ZipFiles\ZipFiles.exe -z D:\MyFiles.txt D:\MyFiles.zip

xem hình sau khi nén thành công



Tools có sẳn ... phần còn lại tự xử lấy

Xong ... chúc vui văn vẻ

 

[Kiều Mạnh]

Gợi ý cho làm thôi ... còn Tôi thì làm Biếng

1/ Trên VBA viết code Call cmd ... truyền cái Folder Or File cần nén vào và cái Folder + tên tệp *.Zip cần lưu vào là xong

2/ Nếu duyệt nhiều File Or Folder thì dùng Fso ( Scripting.FileSystemObject ) phổ thông như nông dân cày ruộng ấy mà duyệt là xong

 

[virutxlove]

Gợi ý cho làm thôi ...còn tôi thì làm Biếng

1/ Trên VBA viết code Gọi cmd ... truyền cái Folder Or File cần nén vào và cái Folder + tên file *.Zip cần save vào là xong

2/ Nếu duyệt nhiều File Or Folder thì dùng Fso ( Scripting.FileSystemObject ) phổ thông như nông dân cày ruộng ấy mà duyệt là xong

a ơi, a có thể cho e xin 1 cách nào đơn giản thôi và hướng dẫn chi tiết dễ hiểu chút đc k ạ? tại e k biết j về VBA nên e có làm theo cả mấy cách a chỉ rồi mà k làm đc gì ấy (

 

[Kiều Mạnh]

a ơi, a có thể cho e xin 1 cách nào đơn giản thôi và hướng dẫn chi tiết dễ hiểu chút đc k ạ? tại e k biết j về VBA nên e có làm theo cả mấy cách a chỉ rồi mà k làm đc gì ấy (

Rảnh vào linh sau vọc chơi vậy he
rất cơ bản từ đó ... ngày xưa tôi theo thớt đó vọc đấy ... nên tôi chỉ cho cái nơi mà tôi đã từng vọc thôi

Vọc chơi với những thuật toán nén và giải nén file

Tôi mở topic này nhằm mục đích cùng nhau nghiên cứu về nén và giải nén dùng công cụ VBA Đầu tiên chúng ta cùng làm cuộc thí nghiệm nhỏ sau: - Click chuột phải trên Desktop, chọn New ---> WinRAR archive (hoặc WinRAR Zip archive). Đương nhiên ta sẽ nhận được một file RAR hoặc ZIP trắng - Tiếp theo...

www.giaiphapexcel.com