Расшарили файл а он возрос с 7 Мб до 350!!! - Мир MS Excel

Регистрация

Напомнить пароль

= Мир MS Excel/Расшарили файл а он возрос с 7 Мб до 350!!! - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Расшарили файл а он возрос с 7 Мб до 350!!!

Расшарили файл а он возрос с 7 Мб до 350!!!

Дата: Среда, 15.08.2012, 22:28 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 28

Репутация: 0 ±

Замечаний: 0% ±

Привет всем, была необходимость расшарить файл. В нем ковырялось несколько человек (добавляли строки, правили столбцы и прочее) и за неделю-другую. файл стал размером с 8 мег до 350!!! И сейчас по часу открывается на компах пользователей...Что могло его так раздуть?

Ответить

Дата: Среда, 15.08.2012, 22:37 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (Tolik82)

Что могло его так раздуть?

Расшаривание, например

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Среда, 15.08.2012, 22:42 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3213

Репутация: 609 ±

Замечаний: 0% ±

2003

Типичный случай ожирения файлов общего пользования (расшаренных).
Метод фитнеса самый простой: снимите общий доступ, а потом дайте его опять. Файл здорово похудеет.

С уважением,
Алексей
MS Excel 2003 - the best!!!

Ответить

Дата: Четверг, 16.08.2012, 07:24 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 28

Репутация: 0 ±

Замечаний: 0% ±

Quote (Alex_ST)

Типичный случай ожирения файлов общего пользования (расшаренных).
Метод фитнеса самый простой: снимите общий доступ, а потом дайте его опять. Файл здорово похудеет.

спасибо, попробую!

Ответить

Дата: Четверг, 16.08.2012, 09:48 | Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3213

Репутация: 609 ±

Замечаний: 0% ±

2003

К стати, по умолчанию при общем доступе стоит параметр "Хранить журнал изменений" 30 дней.
А в личные представления включаются параметры печати и фильтры.

Когда с файлом много работают журнал сильно распухает, да и множество личных представлений хоть немного, но тоже даёт привесу.
Можно сократить длину журнала но нескольких дней или вообще не вести его (всё равно никаких "откатов" по журналу сделать нельзя, а можно только узнать о факте изменения тогда-то тем-то того-то).
Да и в личных представлениях тоже можно не хранить параметры печати и фильтры.
В таком режиме общего доступа файл жиреть будет медленнее.
Но всё равно желательно регулярно отключать-включать общий доступ. Тогда чистка происходит ещё эффективнее.

Подробнее тема "фитнеса" разрабатывалась в топике Файл распух до нелогичных размеров
К сожалению, так до универсальной процедуры и не довели (уж слишком много постепенно открылось разных причин ожирения).
Если интересно, посмотрите.

К сообщению приложен файл: 3221134.jpg (23.9 Kb)

С уважением,
Алексей
MS Excel 2003 - the best!!!

Сообщение отредактировал Alex_ST - Четверг, 16.08.2012, 09:55

Ответить

Дата: Четверг, 16.08.2012, 10:11 | Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

Репутация: 526 ±

Замечаний: 0% ±

Авось поможет.
Alt+F11 (вход в редактор VBA)
Слева окно Project. Если нет - Ctrl+R.
В проекте выделить "Эта книга", F4 (окошко "свойства"), задать свойство
KeepChangeHistory=False

Ответить

Дата: Четверг, 16.08.2012, 11:39 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 28

Репутация: 0 ±

Замечаний: 0% ±

галкой снять общий доступ к уменьшению не привели. там в окошке показано штук 20 записей когда открывали файл юзеры. МОжет удалить их и файл уменьшится? МОжно как то разом их все грохнуть? А то там 30 строк и каждая по паре минут удаляется smile

smile

Ответить

Дата: Четверг, 16.08.2012, 17:03 | Сообщение № 8

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3213

Репутация: 609 ±

Замечаний: 0% ±

2003

Quote (Tolik82)

МОжно как то разом их все грохнуть? А то там 30 строк и каждая по паре минут удаляется

Нифига себе! Незакрытые сессии обычно остаются после аварийных закрытий Excel'я. Это сколько же юзвергов на Вашем мега-файле свои Excel'и завесили?
Стандартных методов группового удаления следов старых сессий из файла я не знаю, да и вряд ли они есть, т.к. Ваш случай достаточно редок.
Странно, что включение монопольного доступа не сильно уменьшило файл.
Но тут уж делать больше нечего - наберитесь терпения и удаляйте следы старых сессий по одному.

К стати, в каком Excel'e Вы работаете? Судя по размеру файла - 2003.
Там у Вас макросы есть? Если нет, то попробуйте на какой-нибудь машине открыть файл в Excel-2007/2010, сохранить из него как .xlsx (должен очень сильно похудеть), а потом .xlsx пересохранить в формате .xls. Кто-то где-то говорил, что это помогает от ожирения.

С уважением,
Алексей
MS Excel 2003 - the best!!!

Сообщение отредактировал Alex_ST - Четверг, 16.08.2012, 20:48

Ответить

Дата: Четверг, 16.08.2012, 17:09 | Сообщение № 9

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

Репутация: 526 ±

Замечаний: 0% ±

Tolik82, пробовали применить KeepChangeHistory=False? После этого файл пухнет?

Ответить

Дата: Понедельник, 20.08.2012, 09:04 | Сообщение № 10

Группа: Пользователи

Ранг: Новичок

Сообщений: 28

Репутация: 0 ±

Замечаний: 0% ±

Итак, в пятницу мне удалось уменьшить файл до 16 мегов, юзеры в нем что то делали...сегодня он уже 26 метров.
Файл расширения XLS - у юзверей эксель и 2003 и 2007 и 2010.

при попытке зайти в свойства проекта выдает Project Locked, Project is unaviable

макросов в книге нет, есть примитивные формулы. (на втором листе из первого берет цифры и плюсует,минусует их)...
поставил галку - не хранить журнал изменений а также снял галки у Параметров печати и фильтры.
ХЭЛП....растет как грибы после дождя....

Ответить

Дата: Понедельник, 20.08.2012, 11:36 | Сообщение № 11

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Если поискать, то где-то на П дружественном форуме есть оригиналы этих макросов от ZVI.

К сообщению приложен файл: 5236089.xls (42.0 Kb)

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Понедельник, 20.08.2012, 11:54 | Сообщение № 12

Группа: Пользователи

Ранг: Участник

Сообщений: 68

Репутация: 17 ±

Замечаний: 0% ±

2007,2013

Например, здесь

Ответить

Дата: Понедельник, 20.08.2012, 13:03 | Сообщение № 13

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Quote (Irysha)

Например, здесь

Интересный момент - ссылка подсвечивается правильно, а переходит на
http://u.to/Pis7Ag ???

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Понедельник, 20.08.2012, 21:56 | Сообщение № 14

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3213

Репутация: 609 ±

Замечаний: 0% ±

2003

Quote (Tolik82)

при попытке зайти в свойства проекта выдает Project Locked, Project is unaviable

А Вы общий доступ прежде чем попытаться зайти в проект отключили? В режиме общего доступа VBE открыть проект VBA не может.
Если

Quote (Tolik82)

макросов в книге нет

, то откройте его в 2007/2010 и сохраните как книгу без макросов - .xlsx.
А потом ещё раз откройте этот файл и сохраните как файл формата 2003 - .xls
После этого VBA-проектов в нём точно ВООБЩЕ не останется.

Картинки в файле есть?
Если НЕТ, то Вы в этом уверены?
Просто после удаления строк или столбцов, в которых были рисунки, рисунки обычно не удаляются, а получают нулевой размер по одному или обоим измерениям и становятся невидимыми. Но весят они столько же как и исходные и копируются вместе с их ячейками.
Попробуйте-ка на всякий случай попробовать вставить в стандартный модуль и выполнить такой макрос:[vba]

Code

Sub All_Draws_UnVisible_Delete()   ' удалить в книге все невидимые рисунки и рисунки с нулевыми размерами
     Dim wSh As Worksheet, oDraw As Shape
     For Each wSh In ActiveWorkbook
         For Each oDraw In ActiveSheet.DrawingObjects.ShapeRange
             With oDraw
                 If .Visible = False Or .Width = 0 Or .Height = 0 Then .Delete
             End With
         Next oDraw
     Next wSh
End Sub

[/vba]

Quote (Tolik82)

при попытке зайти в свойства проекта выдает Project Locked, Project is unaviable

А Вы общий доступ прежде чем попытаться зайти в проект отключили? В режиме общего доступа VBE открыть проект VBA не может.
Если

Quote (Tolik82)

макросов в книге нет

, то откройте его в 2007/2010 и сохраните как книгу без макросов - .xlsx.
А потом ещё раз откройте этот файл и сохраните как файл формата 2003 - .xls
После этого VBA-проектов в нём точно ВООБЩЕ не останется.

Картинки в файле есть?
Если НЕТ, то Вы в этом уверены?
Просто после удаления строк или столбцов, в которых были рисунки, рисунки обычно не удаляются, а получают нулевой размер по одному или обоим измерениям и становятся невидимыми. Но весят они столько же как и исходные и копируются вместе с их ячейками.
Попробуйте-ка на всякий случай попробовать вставить в стандартный модуль и выполнить такой макрос:[vba]

Code

Sub All_Draws_UnVisible_Delete()   ' удалить в книге все невидимые рисунки и рисунки с нулевыми размерами
     Dim wSh As Worksheet, oDraw As Shape
     For Each wSh In ActiveWorkbook
         For Each oDraw In ActiveSheet.DrawingObjects.ShapeRange
             With oDraw
                 If .Visible = False Or .Width = 0 Or .Height = 0 Then .Delete
             End With
         Next oDraw
     Next wSh
End Sub

С уважением,
Алексей
MS Excel 2003 - the best!!!

Ответить

Сообщение

Quote (Tolik82)

при попытке зайти в свойства проекта выдает Project Locked, Project is unaviable

А Вы общий доступ прежде чем попытаться зайти в проект отключили? В режиме общего доступа VBE открыть проект VBA не может.
Если

Quote (Tolik82)

макросов в книге нет

, то откройте его в 2007/2010 и сохраните как книгу без макросов - .xlsx.
А потом ещё раз откройте этот файл и сохраните как файл формата 2003 - .xls
После этого VBA-проектов в нём точно ВООБЩЕ не останется.

Картинки в файле есть?
Если НЕТ, то Вы в этом уверены?
Просто после удаления строк или столбцов, в которых были рисунки, рисунки обычно не удаляются, а получают нулевой размер по одному или обоим измерениям и становятся невидимыми. Но весят они столько же как и исходные и копируются вместе с их ячейками.
Попробуйте-ка на всякий случай попробовать вставить в стандартный модуль и выполнить такой макрос:[vba]

Code

Sub All_Draws_UnVisible_Delete()   ' удалить в книге все невидимые рисунки и рисунки с нулевыми размерами
     Dim wSh As Worksheet, oDraw As Shape
     For Each wSh In ActiveWorkbook
         For Each oDraw In ActiveSheet.DrawingObjects.ShapeRange
             With oDraw
                 If .Visible = False Or .Width = 0 Or .Height = 0 Then .Delete
             End With
         Next oDraw
     Next wSh
End Sub

[/vba]

Автор - Alex_ST
Дата добавления - 20.08.2012 в 21:56

Дата: Понедельник, 20.08.2012, 21:57 | Сообщение № 15

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3213

Репутация: 609 ±

Замечаний: 0% ±

2003

К стати, тема финтеса файлов разбиралась ещё и в топике Программа для очистки рабочей книги

С уважением,
Алексей
MS Excel 2003 - the best!!!

Ответить

Расшарили файл а он возрос с 7 Мб до 350!!!

Страница 1 из 1
1

© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!