viktturbig-dukeа по русски это что значит ?
"Много лет пользуюсь программой Excel. Файлы небольшие, 15-17 листов, но много цветов, формул, размеров шрифтов и т.д. Фраза --слишком много различных форматов ячеек-- иногда просто ничего не дает сделать в файле. Может быть, кто-нибудь встречался с таким, и знает, как ограничить количество форматов?"Мною написан макрос, который на некоторое время решает эту проблему и файл можно нормально открыть в Excel 2003.
Единственное условие, что у вас в наличии должен быть Excel 2007.

Вот собственно сам макрос.

Если ваш файл в Excel 2007 открывается в нормальном виде, а в Excel 2003 пишет ошибку, что слишком много форматов, вам поможет мой макрос.

Для этого откройте ваш файл в Excel 2007.
Если включен общий доступ к книге, отключите его.
Снимите защиту листа на всех листах вашего файла.

После этого запустите данный макрос, при этом активной должна быть ваша книга.

Следите за сообщениями макроса.
В случае успешной работы он должен показать, что были удалено сколько-то тысяч стилей и осталось 2 (ну или может чуть больше) стиля.
Если он напишет, что удалено 0 стилей, значит вам не повезло, скорее всего у вас остались ещё какие-то защищенные листы, возможно скрытые.
Проверьте ещё раз, что защита везде снята.

Если макрос выполнился успешно, после этого сохраните файл и закройте.
Затем откройте его в Excel 2003, он должен открыться без ошибки.

После End With надо ещё поставить

Hugo121

Проверил сейчас на одном тестовом файле - удалил 5 стилей, с виду ничего не поменялось, а объём возрос на 40% :)[/quot]Надо пробовать на файле, который уже не может нормально открываться в Excel 2003 и выдаёт указанную ошибку "слишком много различных форматов ячеек".


vikttur

Чтобы размер файл не увеличивался, попробуйте в свойствах объекта ЭтаКнига параметр KeepChangeHistory установить в False, наверно поможет.

Вот пример файла, который при открытии его в Excel 2003 выдаст ошибку "Слишком много форматов".

KoplusDjon Player, спасибо большое за макрос.
Он оказался мне очень полезным.
Единственная просьба, не подскажете как сделать, чтобы не удалялся формат процентный?
А еще лучше напишите, где можно взять списки всех стилей, чтобы их можно было исключать из удаления.
Пробовал так не помогает:
В теле цикла

If st.Name <> "Процентный" Then
st.Delete
End If
If st.Name <> "Percent" Then
st.DeleteЛень мне уже разбираться с этим макросом, но если предположить, что ваш код правильный, то наверно должно быть как-то так:
Но есть одно но, стиль и формат две независимые вещи.
Следовательно ячейки имеющие формат процентный могут иметь название стиля какое угодно, поэтому этот код сохранит лишь процентный формат тех ячеек, у которых стиль имел стандартное название. Но как показывает практика, в основном Excel сам в больших количествах генерирует кучу названий стилей с бредовыми названиями, что собственно в конце концов и приводит к переполнению количества стилей.
Поэтому так просто эту задачу не решить.
Можно пойти другим путем, перед запуском этого макроса, запустить другой макрос, который сохранит данные о всех ячейках с процентным форматированием (о самом процентном форматировании). Затем применить макрос по удалению лишних стилей. После запустить макрос, который заново применит процентное форматирование к этим ячейкам.

viktturHugo121пропущено...

Я такого не говорил. Это все Djon Player :)
Есть ли какая-то возможность эту историю посмотреть?vikttur,

Всё правильно, это говорил я тут .

viktturDjon Player, я это заметил :)
Меня интересует, есть ли лазейка для просмотра журнала?что-то я не в теме о каком журнале идёт речь, о журнале изменений на форуме, или журнале изменений в Excel.

viktturDjon Player, прошу прощения, запутал.
Я понял, что KeepChangeHistory - это какая-то память изменений, своего рода журнал для записей изменений. Поэтому и спрашиваю - есть ли какая-либо возможность посмотреть эти записи?Да, совершенно верно, так и есть, отвечает за сохранение журнала изменений. Можно ли это как-то посмотреть не знаю, возможно встроенных функций для этого нет. Но теоретически могут быть внешние программы, которые могут это сделать.

viktturСпасибо. Было бы хорошо уметь чистить. Попадаются файлы, которые при переформировании в новый документ уменьшаются в весе. Подозреваю, что виноват в "толстении" именно KeepChangeHistory.Открыть Visual Basic, выделить мышкой объект ЭтаКнига и в окне PropertiesWindow найти параметр KeepChangeHistory и поменять его значение на False. После этого пересохранить файл. После можно вернуть обратно значение True.