Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBA - Как уменьшить размер файла Excel до прежних размеров после некоторых манипуляций??

Ответить
Настройки темы
VBA - Как уменьшить размер файла Excel до прежних размеров после некоторых манипуляций??

Новый участник


Сообщения: 2
Благодарности: 0

Профиль | Отправить PM | Цитировать

Книга Excel из одного листа занимает 82 к. (34 строки 70 столбцов). Ячейки заполнены формулами, цифрами и текстм. в ячейке не больше 40 символов. числа не больше 999 999. строки с 35 по последнюю (65536) скрыты.

Если делаешь какую-либо манипуляцию со всеми ячейками листа (напр. очищаешь некоторые по какому-то условию ), размер файла увеличивается в 200 раз. (1 600 к. )
Удаление пустых столбцов и строк ничего не дает.
Как уменьшить размер файла до прежних размеров? Выделять заполненные ячейки и копировать на др. лист на подходит: файл уменьшается. но это кропотливая работа, портятся формулы и т.д. Что увеличивает файл и как это устранить?

Макрос очистки всех ячеек:
Dim iTarget As Range
Dim Vars As Variant
With Application.Worksheets
Set iTarget = ThisWorkbook.ActiveSheet.UsedRange
For Each Vars In iTarget
If Vars.HasFormula = False And Vars.Interior.ColorIndex = xlNone Then
Vars.ClearContents
End If
Next Vars
End With

Отправлено: 12:10, 04-09-2007

 

Аватара для CyberDaemon

DOOMer


Сообщения: 3254
Благодарности: 438

Профиль | Отправить PM | Цитировать

Попробуй "Сохранить как".

-------
"640 K ought to be enough for anybody" Bill Gates, 1981

Отправлено: 12:16, 04-09-2007 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 2
Благодарности: 0

Профиль | Отправить PM | Цитировать

CyberDaemon,
"Сохранить как" не срабатывает. Сохраняет большой объем. в файле где-то большой объем лишней инфы, а где?

Отправлено: 12:39, 04-09-2007 | #3


Аватара для XCodeR

Ветеран


Сообщения: 878
Благодарности: 53

Профиль | Сайт | Отправить PM | Цитировать

Jiun, copy - past

Отправлено: 19:05, 04-09-2007 | #4


Аватара для kim-aa

Назгул


Сообщения: 2633
Благодарности: 345

Профиль | Отправить PM | Цитировать

Jiun,
1) Попробуйте копировать сами листы в новый файл.
Заодно после каждого копирования смотрите на сколько увеличился объем файла.
Так и вычислите врага.


2) Еще объем файла зависит от версии .XLS которой он придерживается.

В свое время я боролся с этим так - открывал копию файла в OpenOffice, сохранял там как копию, и затем снова открывал полученный продукт в MS Office.


PS.
Но самое надежное это все таки Вариант 1.

-------
Мы овладеваем более высоким стилем спора. Спор без фактов. Спор на темпераменте. Спор, переходящий от голословного утверждения на личность партнера. (c)Жванецкий

Отправлено: 10:24, 05-09-2007 | #5



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBA - Как уменьшить размер файла Excel до прежних размеров после некоторых манипуляций??

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Установка - Как уменьшить размер дистрибютива хр? ники Microsoft Windows 2000/XP 1 13-03-2009 23:12
Разное - [решено] Как уменьшить размер windows xp ? rvi77 Microsoft Windows 2000/XP 9 21-01-2009 00:17
Как уменьшить размер аватара? Lucy Хочу все знать 1 11-01-2007 21:18
Как уменьшить размер exe LedWorm Программирование и базы данных 8 17-08-2004 03:16
Как можно уменьшить размер Windows XP на диске? Klim Microsoft Windows 2000/XP 10 28-02-2003 11:37


« Предыдущая тема | Следующая тема »


 
Переход