Новости:

Новая редакция правил форума: 2.4. Если вопрос или ответ содержится во вложенном файле, все-равно кратко описывайте в сообщении вопрос или суть решения. Это необходимо, чтобы тему можно было найти через поиск.

Главное меню

Опять 25.. Размер пустого файла

Автор SarDoX, 22.06.2011, 07:05

« назад - далее »

SarDoX

Всем доброго времени суток)

Размер пустого файла 7 мб.
1) объектов нет
2) макросы, модули все вычистил
3) лист совершенно пустой
4) в блокноте ничего не вижу

Кто съедает место?
Файл в архиве весит 43кб.
Заранее спасибо

Alex_ST

А имена диапазонов все удалили?
Попробуйте запустить для поиска имён:Sub ListNames()   ' вывод всех имен диапазонов в книге и их ссылок в активную ячейку и ниже
  Selection.ListNames
End Sub

А вот так можно пройтись по списку имён и по одному их поудалять при необходимости:Sub EraseNames()   ' очистка списка имен диапазонов
  Dim nM As Name
  For Each nM In ActiveWorkbook.Names
     If nM.Visible Then
        If Not nM.Name Like "*!Print_Area" Then  ' имена областей печати лучше оставить
           Select Case MsgBox("Удалить имя диапазона:" & vbCrLf & vbCrLf _
                              & nM.Name & nM.RefersTo, vbYesNoCancel + vbQuestion)
              Case vbYes: nM.Delete
              Case vbCancel: Exit Sub
           End Select
        End If
     Else
        If Not nM.Name Like "*!_FilterDatabase" Then nM.Delete   ' удалить все скрытые имена диапазонов кроме фильтров
     End If
  Next nM
End Sub
С уважением, Алексей

SarDoX

имен совсем немного, почистил, уменьшился файл НА 5кб.
Где еще 7мб?(

Alex_ST

Ну...
А файл точно пустой? Т.е.,я так понимаю, дело принципа - выяснить "где собака порылась"?
Тогда можно создать копию и по одному поудалять в книге листы, каждый раз сохраняя и проверяя размер. Так можно будет выяснить на листах или в "теле" книги накопился "жирок".
Если дело всё-таки в одном из листов, то надо удалить на этих проблемных листах  ВСЯКОЕ форматирование, в том числе и условное_форматирование.
Если дело в "тушке" книги, то:
1. Файл не в общем доступе? Если ДА, то накопилась история в журнале изменений. Можно отменить общий доступ, а потом его опять дать. Журнал сотрётся.
2. В файле раньше работали макросы? Эти макросы не понапихали ли чего-нибудь в ThisWorkbook.DocumentProperties и в ThisWorkbook.CustomDocumentProperties ? Сможете сами проверить, пройдясь по ним циклом? Если нет, то через 5 минут слеплю макрос для проверки.

С уважением, Алексей

Alex_ST

Ну, вот на всякий случай:Sub BuiltinDocumentProperties_VIEW()
   Dim DocProp As DocumentProperty, sDocPropVal$
   On Error Resume Next
Debug.Print "ThisWorkbook contains " & ThisWorkbook.BuiltinDocumentProperties.Count & " BuiltinDocumentProperties :"
      For Each DocProp In ThisWorkbook.BuiltinDocumentProperties
      sDocPropVal = "Empty"
      sDocPropVal = DocProp.Value
Debug.Print DocProp.Name & " = " & sDocPropVal
      Next
End Sub

Sub CustomDocumentProperties_VIEW()
   Dim DocProp As DocumentProperty, sDocPropVal$
   On Error Resume Next
Debug.Print "ThisWorkbook contains " & ThisWorkbook.CustomDocumentProperties.Count & " CustomDocumentProperties :"
   For Each DocProp In ThisWorkbook.CustomDocumentProperties
      sDocPropVal = "Empty"
      sDocPropVal = DocProp.Value
Debug.Print DocProp.Name & vbTab & sDocPropVal
   Next
End Sub

Sub CustomDocumentProperties_CLEAR()
   Dim DocProp As DocumentProperty, sDocPropVal$
   On Error Resume Next
   For Each DocProp In ThisWorkbook.CustomDocumentProperties
      sDocPropVal = "Empty"
      sDocPropVal = DocProp.Value
Debug.Print DocProp.Name & vbTab & sDocPropVal & vbTab & "Deleted": DocProp.Delete
   Next
End Sub
С уважением, Алексей

Prist

Я удалил все имена - лист стал весить 29Кб. Excel 2007.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
www.excel-vba.ru
Просто СПАСИБО [+оказать+]
Считаешь СПАСИБО мало? Яндекс.Деньги: 41001332272872; WM: R298726502453

SarDoX

ключевое здесь - Excel 2007.
у меня тоже в 2010 сохраняет.
проблема в том, что есть много файлов с кучей листов и сотнями формул.
один из таких файлов заглючил, стал много весить (40мб)
хотя данных там, на глаз, на 5-10мб.
щас вообще выдает при открытии "недостаточно ресурсов"
т.к. он очень специфический, то нет возможности открыть его в 2007 или перенести в другой файл компированием листов(куча диапазоном, имен, форм, модулей) --- после сохранения он просто перестаёт работать.
мне надо докопатсья до истины - почему же он так много весит.
полностью его вычистил и выложил сюда "пустой файл" в 7мб.
как-то так..

Serge 007

Цитата: Prist от 22.06.2011, 10:02
Я удалил все имена - лист стал весить 29Кб. Excel 2007.
Удалил все имена - лист стал весить 25,5Кб. Excel 2003.
Бесплатная помощь: www.excelworld.ru
Платная помощь: sergeyizotov@excelworld.ru
Ю-money: 41001419691823 | WMR:126292472390