Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
пакетная обработка файлов Excel
 
#1
04.08.2008 17:29:57
Добрый день, может быть кто-то сталкивался по работе с такой ситуацией:  
необходимо обработать n-ое количество файлов Excel (например 47) в том ключе, чтобы файл вместо ссылок и формул файл содержал только итоговые значения (для последующей пересылки по электронной почте, как пример).  
 
Сейчас приходится использовать кондовый метод - открыл в каждом файле n-цать вкладок - Выделил все - скопировал и выбрал "Специальная вставка - Значения"... соответственно уходит прорва времени на такую обработку всего объема файлов...  
 
Возможно есть либо написанная программа, либо макрос, выполняющий эти действия в пакетном режиме...
 
 
 
#2
04.08.2008 18:27:19
Для активной книги:  
Sub DelFormula()  
For Each sh In ActiveWorkbook.Sheets  
 sh.UsedRange.Value = sh.UsedRange.Value  
Next  
End Sub  
Как перебрать и открыть кучу файлов - неоднократно обсуждалось.
 
 
 
#3
04.08.2008 18:43:47
Посмотрите ещё пример.  
В примере появляется окно выбора папки, указываете папку, нажимаете кнопку "Выбрать" и ..... во всех Excel файлах, на всех листах формулы будут заменены на значения.    
 
Таким образом применяйте данных макрос ОЧЕНЬ осторожно!!! Укажите не ту папки и ... прощайте все формулы  
 
P.S. В макрос встроены 2 предупреждения.
 
 
 
#4
04.08.2008 19:43:31
Огромное спасибо за советы.  
 
Pavel55  
А можно еще немного поэксплуатировать Ваши знания VisualBasic в части написания макросов?  
 
Все файлы идут с однотипной структурой вкладок. Можно ли добавить в макрос обработку, которая удаляет первую вкладку (вкладка называется "Расчет")?  
 
P.S. И вопрос чисто теоритический, возможно ли в принципе написать макрос, который будет кроме того что делае сейчас, удалять из вкладок сгруппированные столбцы (скрываю их, чтобы не мозолили глаза) и, предел мечтаний, удалять из определенной вкладки определенные строки?
 
 
 
#5
04.08.2008 21:00:43
Если вы называете "вкладкой" лист Excel, то да, можно удалять листы "Рачет" в каждом файле. См. пример.  
 
По поводу ваших дополнительных вопросов ответ - скорее всего можно. Особенно если структура файла одинаковая, т.е. например, нужно удалять столбцы от D до Z и строки от 10 до 50 - это очень легко.
 
 
 
#6
05.08.2008 09:32:27
Огромное спасибо за помощь.  
 
Остался только один вопрос - какие книги/форумы/в общем инфу искать, чтобы реализовать это "очень легко"?  
 
Пробовал добавить в Ваш файл нужные мне строки (открыл файл Excel - записал макрос - удалил на нужном листе необходимые строки - и пробовал вставить copy/past'ом из своего макроса в Ваш), но, естественно, вылетает ошибка. Просто т.к. необходимых знаний нет - мне нужно понять как и, главное, в какое место нужно вставить дополнительные строки кода в тот макрос, который Вы выслали.
 
 
 
#7
05.08.2008 10:20:30
трудно советовать академику..  
 
но перво-наперво - ф1  
 
второ-наперво - "записать макрос"  
 
и в-третьих - что-нибудь из Уокенбаха или Киммела
 
 
 
#8
05.08.2008 10:20:52
Сайты/Форумы - можножно этот изучить (PlanetaExcel.ru), тут много приёмов и информации есть, также можете изучить информацию тут http://www.msoffice.nm.ru/faq/macros.htm
 
 
 
#9
05.08.2008 10:21:47
P.S. но можете и нас спросить) мы тоже поможем)
 
 
 
#10
05.08.2008 11:23:40
Был бы Вам весьма признателен.  
 
В приложении расчетный файл которым пользуюсь. Практически все, естественно, прописано на формулах, поэтому если таких файлов 60 и каждый нужно подготовить для отправки по эл. почте клиенту - можно убиться использовать copy&past (вставка - значение) руками...  
 
В идеале, по окончанию обработки, нужно получить на выходе файл без листа "Расчет" и с немного подкорректированным листом "Структура" (те строки которые нужно удалить - отметил фиолетовой заливкой).  
 
Если подскажите как реализовать - буду премного благодарен.  
 
P.S. Если вдруг, случайно, заметите несуразности в формулах (например как тянутся шапки из листа "Структура" в лист "ГЛП", с удовольствием бы воспользовался советами как реализовать это грамотнее... так как все что сделал в этом файле брал, в основном, из советов с этого форума).  
 
P.P.S Чтобы окончательно наступило счастье хочу реализовать возможность, чтобы итоговая сумма автоматически прописывалась прописью (пардон за тавтологию), но пока не дошли руки, но со временем сделаю (я надеюсь).
 
 
 
#11
05.08.2008 13:44:40
Посмотрите пример
 
 
 
#12
05.08.2008 17:08:13
Pavel55  
 
Огромное Вам спасибо, очень выручили :-)
 
 
 
#13
06.08.2008 13:55:19
А зачем морочиться с макросами?    
Почему бы просто не разорвать связи?  
Открыл книгу со ссылками - Правка - Связи - Разорвать связь.  
При этом эксель добросовестно предупредит, что "При разрыве связей формулы и внешние ссылки будут преобразованы в принимаемые ими на данный момент значения. Так как эту операцию невозможно отменить, рекомендуется сохранить версию этого файла под другим именем. Разорвать связи?"  
Смело жмите "Разорвать связи" и получите значения. Учтите, что, если книга связана с несколькими другими книгами, то каждую связь надо рвать отдельно, но это недолго и несложно.  
Успехов!
 
 
 
#14
06.08.2008 14:00:31
Извините, не учёл основного условия задачи - работа с большим количеством файлов.
 
 
 
#15
06.08.2008 14:42:56
Pavel55  
 
Подскажите пожалуйста, решил сам немного доработать макрос, который Вы присылали.  
 
Суть - удалить столбцы на следующих листах:  
Лист "ГЛП" - все столбцы, начиная с "I"  
Лист "ГП" - все столбцы, начиная с "F"  
 
Проверьте пожалуйста, правильно ли я понимаю что надо вставить такие строки кода в макрос:  
 
If iSheet.Name = "ГЛП" Then  
                                   .Cells(Colums.Count, 1).End(xlUp).Column > "I" Then  
                                           .Colums("I" & ":" & .Columns(Rows.Count, 1).End(xlUp).Column).Delete Shift:=xlUp  
                               End If
 
 
 
#16
06.08.2008 15:01:19
Посмотрите файл
 
 
 
#17
06.08.2008 15:11:40
Спасибо Павел, правда получилось не совсем то, что задумывалось.  
 
Объясню зачем хотел эти столбцы удалить:  
на листе "ГЛП" столбец "I" "Группирован" и внутри были служебные значения, которые используются в расчетном файле и я их "группирую" чтобы не мозолили глаза... то же самое и на листе "ГП" (там столбец "F"), теперь, после использования последней версии макроса, значения внутри этих столбцов действительно пропадают... но группировка не исчезает... приходится "разгруппировывать" каждый файл вручную...    
 
Еще раз хотел Вас поблагодарить, за помощь и терпение в реализации моих "запросов", большое спасибо.
 
 
 
#18
06.08.2008 21:23:07
А вот так? )
 
 
 
#19
06.08.2008 23:08:32
неа...  
 
Microsoft Visual Basic  
 
Run-time error '438':  
 
Object doesent support this property or method
 
 
 
#20
07.08.2008 10:28:55
А вот так? )
 
 
 
#21
07.08.2008 11:16:38
ага :-)  
 
преогромнейшее спасибо
 
 
 
#22
06.10.2008 16:12:46
Большое спасибо за инфу
 
 
 
Страницы: 1
Читают тему
Наверх