Excel files can often be very large. In that case, storing and sharing them becomes a problem for Excel users. They can quickly and easily share them by compressing the file. In this article, we will discuss how to zip an Excel file in three easy ways.

Download the Practice Workbook

3 Suitable Ways to Zip an Excel File

In this article, we will discuss three handy ways to zip an Excel file. Firstly, we will use the Send command in Windows, followed by renaming the Excel file with .zip extension. Finally, we will use a simple VBA code to complete the task.

1. Using Windows Send Command to Zip an Excel File

Step 1:

• Firstly, store your Excel file at a suitable location on your computer.

Step 2:

• Secondly, select the Excel file and right-click on the mouse.
• Then, from the drop down option, select the Send to command
• Finally, from the outstretched options select the compressed (zipped) folder option.

Step 3:

• Consequently, you will find that your Excel file has a copy with the extension .zip.

2. Renaming File to Zip an Excel File

Step 1:

• Firstly, select the Excel file.
• Then, go to the Home tab in the File Explorer ribbon.
• From there, hoover down to the Rename tab and click on it.

Step 2:

• Secondly, write “.zip” in place of the Excel extension.
• Then, hit Enter.
• Consequently, a message box will appear.

Step 3:

• Finally, choose “Yes” from the box.

Step 4: 

• As a result, your Excel file will be zipped.

3. Applying VBA Code to Zip an Excel File

Step 1:

• Firstly, go to the Developer tab in the ribbon.
• Then, click on the Visual Basic command.

Step 2:

• Thirdly, in the Visual Basic tab, click on Insert.
• Then, select the Module tab.
• Consequently, a coding module will appear.

Step 3:

• In the coding module, write down the following code.
• Then, save the code.

Sub exceltoZipFile(ZipFolder As Variant, FileName As Variant)
'declaring an object
Dim shell_app As Object
'creating an empty zip file
Open FileName For Output As #1
Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
Close #1
'copying the excel file to the zip file
Set shell_app = CreateObject("Shell.Application")
shell_app.Namespace(FileName).CopyHere shell_app.Namespace(ZipFolder).items
End Sub

Sub zipped()
Call exceltoZipFile("D:\The Office\zip an excel file\", "D:\The Office\zippedfile.zip")
End Sub

Step 4:

• Finally, go to the Run tab and click on it.
• From the drop-down option, select the Run command to run the code.

Step 5:

• As a result, you will find that your Excel file is zipped.

Conclusion

Large Excel files take up a lot of space, and they are very difficult to share. Reducing their size effectively solves these problems. After going through this article, the readers will have a thorough understanding of zipping an Excel file. This will allow them to handle large Excel files efficiently. Please feel free to leave a comment if you have any queries or recommendations for improving the article’s quality. To learn more about Excel, you can visit our website, ExcelDemy. Happy Learning!

The post How to Zip an Excel File ( 3 Easy Ways) appeared first on ExcelDemy.