Здравствуйте, уважаемые форумчане. Помогите, пожалуйста, в написании макроса для открытия и закрытия с сохранением файлов. В ходе работы, для обновления связей, приходится открывать большое количество файлов. На форуме ссылок поэтому вопросы нашла много, но совсем не умею применить их к себе. В приложенном примере есть макрос на открытие одного документа, которое находится в ячейке А1, было бы замечательно, чтобы последовательно открывались и закрывались все файлы, путь, которых прописан в столбце А. Возможно ли дописать этот макрос? Буду очень признательна за помощь.
Макрос на открытие и закрытие с сохранением файлов
03.04.2018 22:46:19
|
|
|
|
03.04.2018 23:45:33
Игорь, может это? ))
|
|||
|
|
03.04.2018 23:50:16
Да, для обновления связей. У меня большое количество счетов с формулами. И прежде чем их перевести в pdf формат, надо обновились значения.
|
|
|
|
03.04.2018 23:58:23
а чем обновленные связи будут отличатся от тех, что уже жили в файле-приемнике до открытия / закрытия файла-источника и которые останутся там жить после открыть / закрыть? что изменилось в файле-приемнике после открыть / закрыть файл источник? открыть, сохранить, закрыть - понятно поменяется дата сохранения файла-источника, а приемнику-то что с этого?
Изменено:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
|
|
|
|
04.04.2018 00:25:18
см. вложение
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
|
|
|
|
04.04.2018 00:27:29
А какими формулами тянутся данные? ПРВ/VlookUp? Если да, то открыть/закрыть лишено смысла. Но раз так хочется , то:
Изменено: |
|||
|
|
04.04.2018 00:32:47
Private Sub CommandButton1_Click() - эта строка желтая
If dir(cells(r,1) <> "" then - а эта красная |
|
|
|
04.04.2018 00:37:53
в строке:
If Dir(Cells(r, 1) <> "" Then не хватает одной закрывающейся скобки If Dir(Cells(r, 1)) <> "" Then
Изменено:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
|
|
|
|
04.04.2018 00:53:02
Ура, все работает. Спасибо Вам огромное, Игорь. Вы спасли меня от монотонной бестолковой работы. Завтра на работе уже проверю свою кучу файлов. Огромное спасибо
|
|
|
|
04.04.2018 00:54:33
И Вам,
|
|
|
|
04.04.2018 00:57:13
Вот такого плана у меня стоят формулы, есть и простые. |
||||
|
|
|||