Приветствую. Сейчас отправляю группу excel файлов по почте, которые содержат объекты. Размер 19 Мб не отправляется почтой за раз и требует разбивки архива на parts. Данные файлы и открываются медленнее. А заходить в каждый файл и на каждый лист, жать: "F5 - объекты - delete" это долго и нудно. Есть ли сторонняя Win программа, которая удалит все объекты из всех excel файлов на всех листах? Сторонняя, потому что подозреваю, что макрос excel не справится. П.С. Проблема макроса будет в том, что некоторые файлы содержат огромное количество объектов и временной период на их выделение будет различным.
Приветствую. Сейчас отправляю группу excel файлов по почте, которые содержат объекты. Размер 19 Мб не отправляется почтой за раз и требует разбивки архива на parts. Данные файлы и открываются медленнее. А заходить в каждый файл и на каждый лист, жать: "F5 - объекты - delete" это долго и нудно. Есть ли сторонняя Win программа, которая удалит все объекты из всех excel файлов на всех листах? Сторонняя, потому что подозреваю, что макрос excel не справится. П.С. Проблема макроса будет в том, что некоторые файлы содержат огромное количество объектов и временной период на их выделение будет различным.Yar4i
1. Прочтите еще раз Правила; 2. Создайте файл-пример, содержащий характерные для Вашего файла объекты; 3. Разместите тему в разделе Вопросы по VBA.
1. Прочтите еще раз Правила; 2. Создайте файл-пример, содержащий характерные для Вашего файла объекты; 3. Разместите тему в разделе Вопросы по VBA.Russel
1. Прочтите еще раз Правила; 2. Создайте файл-пример, содержащий характерные для Вашего файла объекты; 3. Разместите тему в разделе Вопросы по VBA.
1. Смотрел. 2. Общий вопрос - представьте папку с 2-10 Эксель-файлами. 3. Ответ не лежит в области VBA, мне скорее поможет сторонняя программа. Форматирование выбрал, т.к. это более близкая тематика форума к этому вопросу.. Комфорт Кии справится, но временной период придется усреднять до максималки = секунд 40 чтоб наверняка. Да и Комфорт Кии не поймет, что достигнут конец и будет по кругу удалять объекты из Эксель-файлов. Да и с листами будет беда. Сюда обратился, т.к. редактировать необходимо именно Эксель файлы.
1. Прочтите еще раз Правила; 2. Создайте файл-пример, содержащий характерные для Вашего файла объекты; 3. Разместите тему в разделе Вопросы по VBA.
1. Смотрел. 2. Общий вопрос - представьте папку с 2-10 Эксель-файлами. 3. Ответ не лежит в области VBA, мне скорее поможет сторонняя программа. Форматирование выбрал, т.к. это более близкая тематика форума к этому вопросу.. Комфорт Кии справится, но временной период придется усреднять до максималки = секунд 40 чтоб наверняка. Да и Комфорт Кии не поймет, что достигнут конец и будет по кругу удалять объекты из Эксель-файлов. Да и с листами будет беда. Сюда обратился, т.к. редактировать необходимо именно Эксель файлы.Yar4i
Ответ не лежит в области VBA, мне скорее поможет сторонняя программа.
А почему бы с помощью VBA и не поудалять рисунки? Открыть все нужные файлы и почистить их так:[vba]
Код
Sub Draws_In_Workbooks_Delete() Dim oWbk As Workbook, oSht As Worksheet For Each oWbk In Workbooks For Each oSht In oWbk.Worksheets oSht.DrawingObjects.Delete Next oSht oWbk.SaveAs ("XXX-" & oWbk.Name) Next oWbk End Sub
[/vba]а потом уже отправлять (уж с приставкой к имени почищенного файла сами поизвращайтесь)
Ответ не лежит в области VBA, мне скорее поможет сторонняя программа.
А почему бы с помощью VBA и не поудалять рисунки? Открыть все нужные файлы и почистить их так:[vba]
Код
Sub Draws_In_Workbooks_Delete() Dim oWbk As Workbook, oSht As Worksheet For Each oWbk In Workbooks For Each oSht In oWbk.Worksheets oSht.DrawingObjects.Delete Next oSht oWbk.SaveAs ("XXX-" & oWbk.Name) Next oWbk End Sub
[/vba]а потом уже отправлять (уж с приставкой к имени почищенного файла сами поизвращайтесь)Alex_ST
С уважением, Алексей MS Excel 2003 - the best!!!
Сообщение отредактировал Alex_ST - Суббота, 08.11.2014, 10:04
Так-то можно. Но когда файлов под 100, и в каждом файле по 3-5 листов. Это займет некоторое время. Хотелось бы иметь возможность вносить изменения в в группу Эксель файлов не открывая их. Идея пришла после того как я увидел в Виндовс поисковике графу "Искать слово или фразу в документе" - очень удобная вещь при работе с массивом файлов. Но хотелось бы иметь возможность заменять и форматировать в выбранной группе Эксель файлов не открывая сами файлы.
Так-то можно. Но когда файлов под 100, и в каждом файле по 3-5 листов. Это займет некоторое время. Хотелось бы иметь возможность вносить изменения в в группу Эксель файлов не открывая их. Идея пришла после того как я увидел в Виндовс поисковике графу "Искать слово или фразу в документе" - очень удобная вещь при работе с массивом файлов. Но хотелось бы иметь возможность заменять и форматировать в выбранной группе Эксель файлов не открывая сами файлы.Yar4i
Сообщение отредактировал Yar4i - Суббота, 08.11.2014, 09:46
Но когда файлов под 100, и в каждом файле по 3-5 вкладок. Это займет некоторое время
Ну и пропишите открытие всех файлов разом в скрытом режиме, потом макрос, что Alex_ST предложил. Надо только знать, папку, где все эти файлы лежат.Tachkin