1. ติดตั้งโปรแกรม 7z ลงในเครื่อง http://www.7-zip.org/

2. จากนั้นก็สร้างปุ่ม Export Import ตามนี้ครับ
Private Sub Export_Click()

Call Shell(Chr(34) & "C:\Program Files\7-Zip\7z.exe" & Chr(34) & " a [path\zip_file.7z] [path\excel_file.xls] -p1234 -mhe", vbHide)

End Sub

Private Sub Import_Click()

Call Shell(Chr(34) & "C:\Program Files\7-Zip\7z.exe" & Chr(34) & " e [path\zip_file.7z] -o[excel_destination_path] -p1234 -aoa", vbHide)

End Sub

หมายเหตุ

a กับ e นี่ตัวแปร เก็บ Query ที่จะ ส่งเป็นexcel ไหมครับหรือเปล่าครับ

ยังสงสัย code ท้ายๆครับ


a [path\zip_file.7z] [path\excel_file.xls]

มันเป็นรูปแบบคำสั่ง command line ของโปรแกรม 7-zip ครับ

สำหรับบีบอัดไฟล์
7z.exe a archieve.7z originalfile -pPassword -mhe
( a คือ add file to archieve
-mhe คือไม่ให้แสดงชื่อไฟล์ใน archieve)


สำหรับคลายไฟล์
7z.exe e archieve.7z -oPathtoExtract -pPassword -aoa
( e คือ extract file
-aoa คือ เขียนทับไฟล์เดิมโดยไม่ต้องถาม)

ที่ผมให้ไปข้างบนเป็นแค่การทำ zip ไฟล์จาก excel และการคลายไฟล์จาก zip ไฟล์เท่านั้นครับ

ส่วนการที่จะสร้างไฟล์ excel จากฐานข้อมูล หรือนำเข้าข้อมูลจาก excel จะต้องใช้คำสั่งต่างหากนะครับ คือ TransferSpreadsheet ครับ ลองศึกษาดูครับเพราะต้องเตรียมตารางหรือ Query ที่เหมาะสมในการส่งออกหรือนำเข้าครับ