在Excel 2013及以上版本中,工作簿的最大文件大小被限制为2.14 GB。如果工作簿超过此大小限制,则会出现“文件大小意外超过ZIP64限制”错误。
为了解决这个问题,可以尝试以下方法:
1.减小工作簿的大小:可以删除不需要的内容、压缩图片、删除未使用的单元格等操作,以减小工作簿的大小。
2.分割工作簿:可以将工作簿分割为多个小文件,以便每个文件都不超过ZIP64的大小限制。这可以通过VBA代码来实现,代码示例如下:
Sub SplitWorkbook_bySize() Dim maxFileSize As Long Dim wbMaster As Workbook Dim wbNew As Workbook Dim wsCopy As Worksheet Dim ws As Worksheet Dim newFile As String Dim cell As Range
'设置每个文件的最大大小(单位:字节)
maxFileSize = 2000000000
'打开原始工作簿
Set wbMaster = ThisWorkbook
'循环处理每个工作表
For Each wsCopy In wbMaster.Worksheets
'添加新工作簿
Set wbNew = Workbooks.Add
Set ws = wbNew.Worksheets(1)
'拷贝标题行
wsCopy.Rows(1).Copy ws.Rows(1)
'循环拷贝单元格
For Each cell In wsCopy.Cells
If cell.Row > 1 Then
'如果新文件大小超过了限制,就保存当前文件并关闭
If FileLen(newFile) >= maxFileSize Then
wbNew.SaveAs Left(newFile, Len(newFile) - 5) & "-" & Format(num, "000") & ".xlsx", FileFormat:=xlOpenXMLWorkbook
wbNew.Close False
num =