Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1 2 След.
RSS
Пакетное сохранение всех открытых файлов Excel
 
#1
26.02.2016 10:33:49
Есть такой софт Гранд-смета, он делает экспорт смет в формат Excel. Экспорт может быть пакетным, то есть несколько смет одновременно экспортируются каждая в свой отдельный файл Excel. При этом экспорт идет не как сохранение в файл на диск, а открывается Excel и в нем формируется документ-таблица...и остается висеть открытым! при пакетном экспорте из Гранд-сметы получается куча открытых документов Excel, каждый из которых нужно руками сохранить на диск.

Вопрос: есть ли способ (внутри самой Excel, сторонняя утилита, как угодно) одновременно сохранить все открытые и не сохраненные документы на диск? Спасибо заранее
 
 
 
#2
26.02.2016 10:42:10
Тут в чем дело: надо же еще знать КУДА сохранять. Т.е. папку какую-то либо задавать жестко в коде, либо давать выбрать. плюс ведь могут быть открыты и другие файлы, верно? Те, которые не были созданы той программой. Как быть?
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#3
26.02.2016 10:58:28
куда сохранять надо задать да. обычно пакетный экспорт в эксель делают сметам на один объект, то есть место сохранения для них всех будет один и тот же каталог, который желательно выбрать перед сохранением. проблему других открытых файлов решим просто: их не будет, чтобы не усложнять жизнь.
 
 
 
#4
26.02.2016 11:41:52
Цитата
kompilainenn написал:
несколько смет одновременно экспортируются каждая в свой отдельный файл Excel
Надо еще понять, каждая смета создается в отдельном экземпляре приложения Excel, или все в одном. Посмотрите Вид - Перейти в другое окно или в диспетчере задач.
 
 
 
#5
26.02.2016 11:44:44
Цитата
Казанский написал:
Надо еще понять, каждая смета создается в отдельном экземпляре приложения Excel, или все в одном.
имхо. это зависит от настроек системы.
 
 
 
#6
26.02.2016 11:53:42
Цитата
Казанский написал:
Надо еще понять, каждая смета создается в отдельном экземпляре приложения Excel, или все в одном. Посмотрите Вид - Перейти в другое окно или в диспетчере задач.
да как обычно, открыты несколько документов Эксель.
 
 
 
#7
26.02.2016 12:06:40
Сохранить все открытые (не скрытые) книги (в одной сессии) в папку C:\1. При условии, что они были выгружены/созданы и еще не были сохранены!
Код
Sub Сохранить()
For Each AW In Application.Windows
If AW.Visible Then Workbooks(AW.Caption).SaveAs Filename:="c:\1\" + AW.Caption + ".xlsx", FileFormat:=xlOpenXMLWorkbook
Next AW
End Sub
Изменено: bedvit - 26.02.2016 12:09:25
«Бритва Оккама» или «Принцип Калашникова»?
 
 
 
#8
26.02.2016 12:08:35
Скрытый текст
Что будете делать, если файл таким именем в указанной папке существует?
Изменено: JayBhagavan - 26.02.2016 14:12:14

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#9
26.02.2016 12:15:21
JayBhagavan, а какой будет wb.Name, если файл выгружен и не сохранен? (по условию задачи)
«Бритва Оккама» или «Принцип Калашникова»?
 
 
 
#10
26.02.2016 12:16:32
bedvit, а проверить дэбаггером. :)

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#11
26.02.2016 12:18:29
JayBhagavan, создайте новую книгу и не сохраняя попробуйте посмотреть wb.Name, у меня выдает ошибку.
«Бритва Оккама» или «Принцип Калашникова»?
 
 
 
#12
26.02.2016 12:20:52
bedvit, так и делал. У меня ошибку не выдаёт.
Изменено: JayBhagavan - 26.02.2016 12:25:22 (+ скрин)

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#13
26.02.2016 12:28:33
JayBhagavan, да так и есть, мы говорим о разном, я о Application.Windows, вы о Workbooks. Вопрос снимаю). Но в таком случае будут перебираться все книги, в том числе скрытые (в т.ч. книга личных макросов)
«Бритва Оккама» или «Принцип Калашникова»?
 
 
 
#14
26.02.2016 12:29:59
bedvit, если внимательно приглядеться, то есть условие отбора:
Код
Len(wb.Path) = 0

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#15
26.02.2016 12:37:41
Небольшое дополнение, Гранд-смета при экспорте присваивает файлу Эксель ИМЯ, которое соответствует имени файла сметы! То есть, если есть возможность, то пакетно сохранять файлы нужно именно под этими, уже существующим именами для каждого файла.  
 
 
 
#16
26.02.2016 12:38:55
kompilainenn, а Вы таки пробовали это предложенными вариантами сделать?

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#17
26.02.2016 12:41:22
JayBhagavan, Выходит  все сохраненные файлы - не сохраняются этим кодом, что в рамках задачи. не подкопаешь)) вопросы снимаю. У меня немного другой алгоритм, сохраняются те файла, которые не скрыты.
«Бритва Оккама» или «Принцип Калашникова»?
 
 
 
#18
26.02.2016 12:42:22
bedvit, таки да. Сколько людей - столько алгоритмов. :)

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#19
26.02.2016 12:42:42
kompilainenn, именно так два кода и работают.
«Бритва Оккама» или «Принцип Калашникова»?
 
 
 
#20
26.02.2016 13:10:37
Цитата
bedvit написал:
именно так два кода и работают.
ну а теперь самое приятное =( у меня не получается код запустить вообще. я что-то не так делаю видимо, чисто технически. дайте пожалуйста пруф на пошаговую инструкцию по исполнению макроса в офис 2010. спс
 
 
 
#21
26.02.2016 13:13:03
Что такое макросы.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#22
26.02.2016 13:32:44
не получается, выдает ошибку (см.скриншот)
 
 
 
#23
26.02.2016 14:13:53
kompilainenn, добавьте после:
Код
strPath = Replace(.SelectedItems(1) & "\", "\\", "\") ' полный путь папки
эту строку:
Код
end With
В коде выше исправил эту ошибку.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#24
01.03.2016 10:02:12
парни, я туплю.как сохранить макрос в самом экселе, а не в каком-то файле? так, тупость по поводу сохранения макроса прошла, однако макрос сохраняет в каталог только текущий файл, откуда макрос был запущен
Изменено: kompilainenn - 01.03.2016 10:13:58
 
 
 
#25
01.03.2016 10:05:05
kompilainenn, почитайте про личную книгу макросов. И про макросы вообще.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#26
01.03.2016 10:14:32
дада, спс, уже почитал, макрос не работает только =(
 
 
 
#27
01.03.2016 12:23:37
У меня работает.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#28
01.03.2016 12:27:23
Видимо, программа все же сохраняет уже куда-то эти файлы и у них есть путь.
Попробуйте вместо строки
Код
If Len(wb.Path) = 0 Then wb.SaveAs strPath & wb.Name

записать:
Код
msgbox "полное имя, включая путь: " & wb.FullName & "; только имя: " & wb.name

если все сообщения покажут полный путь и имя файла - то тогда хоть станет ясно, что сторонняя программа уже сохраняет файлы и подход должен быть иным.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#29
01.03.2016 13:20:08
вот что показывает, два сообщения:
Изменено: kompilainenn - 01.03.2016 13:37:53
 
 
 
#30
01.03.2016 15:11:16
Тогда код должен работать и сохранять файлы в указанную папку. Но лично я бы еще принудительно формат задал:
Код
wb.SaveAs strPath & wb.Name & ".xlsx",51
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
Страницы: 1 2 След.
Читают тему
Наверх