Владимир (v__step), перенос листа в новую книгу проблему не решал.
В книге 1.xlsx тоько лист1, нет данных, только форматы, стили, имена, размеры ячеек т.п.
На листе1 используемый диапазон A1:F14, т.е. всего 84 ячейки.
Стили занимали 1583774 Байта, после переноса в отдельную книгу - 1575831 Байт, как видим, разница небольшая, перенос в новую книгу в данном случае был неэффективным.
Кирилл, папка sheetViews занимает всего 11 Байт, т.е. представлений там тоже минимум.
Но про *_wvu.* не знал – спасибо!
Если интересно, то точная статистика файлa 1.xlsx выглядит так:
Размер файла 137187 Байт, но помним, что это, по сути, ZIP-архив, неупакованный размер – 1659280 Байт.
Количество стилей – 6950, использовано стилей – 4.
Все имена – скрытые, их количество– 211, в том числе: битых имён - 124, имён с внешними ссылками – 48.
После удаления имён и невстроенных стилей (подправил немного код для стилей) размер файла стал 14045 Байт.
| Код |
|---|
Sub Del_Names()
Dim n As Name
For Each n In ActiveWorkbook.Names
'Debug.Print n.Name, n.RefersTo
n.Delete
Next
End Sub
Sub Del_Styles()
Dim stl As Style
On Error Resume Next
For Each stl In ActiveWorkbook.Styles
If Not stl.BuiltIn Then stl.Delete
Next
End Sub
|
Мусор в файле, похоже, накоплен не годами, а веками (с времен Очакова и покоренья Крыма). Чего там в форматах только нет! Но видно, что работа велась серьезная.
:!: )