Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/!!!!! ОБНОВЛЕНИЕ ФАЙЛОВ БЕЗ ОТКРЫТИЯ!!!!! - Страница 2 - Мир MS Excel

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » !!!!! ОБНОВЛЕНИЕ ФАЙЛОВ БЕЗ ОТКРЫТИЯ!!!!!
!!!!! ОБНОВЛЕНИЕ ФАЙЛОВ БЕЗ ОТКРЫТИЯ!!!!!
_Boroda_ Дата: Вторник, 10.10.2017, 11:51 | Сообщение № 21
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Напишите в скобочках, как во втором макросе поста 4
[vba]
Код
With Workbooks.Open (Filename:=macrosMAJ & origine, UpdateLinks:=True)
[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеНапишите в скобочках, как во втором макросе поста 4
[vba]
Код
With Workbooks.Open (Filename:=macrosMAJ & origine, UpdateLinks:=True)
[/vba]
Автор - _Boroda_
Дата добавления - 10.10.2017 в 11:51
Margot Дата: Вторник, 10.10.2017, 12:19 | Сообщение № 22
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Написала, макрос запускается без ошибки.

Спасибо большое за помощь !!! :)
 
Ответить
СообщениеНаписала, макрос запускается без ошибки.

Спасибо большое за помощь !!! :)
Автор - Margot
Дата добавления - 10.10.2017 в 12:19
Tamplier88 Дата: Пятница, 27.03.2020, 15:52 | Сообщение № 23
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Доброе время!
Использовал данный макрос для автоматического обновления (по заданию Планировщика задания) данных в группе файлов .xls*,
которая подтягивает данные (OLE-link) из множества связанных обновляющихся файлов-источников .doc и .docx.

При использовании кода:

[vba]
Код
Do While File <> ""
            With Workbooks.Open(Filename:=Папка & Имя, UpdateLinks:=3)  ' здесь макрос делает открытие и обновление файлов в папке
                    .Close SaveChanges:=True
            End With
            File = Dir
Loop
[/vba]

столкнулся с проблемой, что файлы открываются, но данные по OLE ссылкам не обновляются.
Чтобы автоматом обновлялись удаленные ссылки в цикл нужно добавить

[vba]
Код
.UpdateRemoteReferences = True
[/vba]

Мой итоговый макрос выглядит так:

[vba]
Код
Sub MyMacro
     With Application
        .ScreenUpdating = False ' обновление экрана
        .DisplayAlerts = False  ' вывод системных сообщений
        .EnableEvents = False ' чтобы события не выполнялись
        .AskToUpdateLinks = False ' чтобы не появлялись запросы на обновления связей
        Report = "Полный путь к папке с файлами"
        
        File = Dir(Report & "*.xls*")
        Do While File <> ""
            With Workbooks.Open(Filename:=Report & File) ' открытие файлов в папке по очереди
                            .UpdateRemoteReferences = True ' обновление ссылок после открытия
                            .Close SaveChanges:=True ' сохранение и закрытие
            End With
            File = Dir
        Loop
        .ScreenUpdating = True ' обновление экрана
        .DisplayAlerts = True  ' вывод системных сообщений
        .EnableEvents = True ' выполнение событий
        .AskToUpdateLinks = True ' запросы на обновления связей
    End With
End Sub
[/vba]

Может кому пригодится, так как ни на одном форуме я данное решение не нашел.

Everythihg should be incredibly simpler.

Сообщение отредактировал Tamplier88 - Пятница, 27.03.2020, 16:13
 
Ответить
СообщениеДоброе время!
Использовал данный макрос для автоматического обновления (по заданию Планировщика задания) данных в группе файлов .xls*,
которая подтягивает данные (OLE-link) из множества связанных обновляющихся файлов-источников .doc и .docx.

При использовании кода:

[vba]
Код
Do While File <> ""
            With Workbooks.Open(Filename:=Папка & Имя, UpdateLinks:=3)  ' здесь макрос делает открытие и обновление файлов в папке
                    .Close SaveChanges:=True
            End With
            File = Dir
Loop
[/vba]

столкнулся с проблемой, что файлы открываются, но данные по OLE ссылкам не обновляются.
Чтобы автоматом обновлялись удаленные ссылки в цикл нужно добавить

[vba]
Код
.UpdateRemoteReferences = True
[/vba]

Мой итоговый макрос выглядит так:

[vba]
Код
Sub MyMacro
     With Application
        .ScreenUpdating = False ' обновление экрана
        .DisplayAlerts = False  ' вывод системных сообщений
        .EnableEvents = False ' чтобы события не выполнялись
        .AskToUpdateLinks = False ' чтобы не появлялись запросы на обновления связей
        Report = "Полный путь к папке с файлами"
        
        File = Dir(Report & "*.xls*")
        Do While File <> ""
            With Workbooks.Open(Filename:=Report & File) ' открытие файлов в папке по очереди
                            .UpdateRemoteReferences = True ' обновление ссылок после открытия
                            .Close SaveChanges:=True ' сохранение и закрытие
            End With
            File = Dir
        Loop
        .ScreenUpdating = True ' обновление экрана
        .DisplayAlerts = True  ' вывод системных сообщений
        .EnableEvents = True ' выполнение событий
        .AskToUpdateLinks = True ' запросы на обновления связей
    End With
End Sub
[/vba]

Может кому пригодится, так как ни на одном форуме я данное решение не нашел.
Автор - Tamplier88
Дата добавления - 27.03.2020 в 15:52
gsolodovnikova Дата: Четверг, 24.11.2022, 20:58 | Сообщение № 24
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 20% ±

Привет коллеги) Подскажите, что я делаю не так?
У меня есть файл с настроенными пивотами на данные из кубов.
Задача сделать файл с кнопкой, который откроет в фоновом режиме файл, все обновит и сохранит.
В идеале, если не получится, то выдаст лог.
И я сделаю себе файл с макросами и буду по кнопочке обновлять нужные файлы.
А еще я загружу один файл в планировщик (пока не знаю как вы это все делаете) и он мне будет сам все обновлять.
По факту я зашла в эксель, ввела в VB этот код.
Он не ругается. Все ок.
Нажимаю отработать макрос. И ничего не происходит.
И файлы так и остались старыми.
и еще Dir у меня не выделен другим цветом (как команда).

[vba]
Код

Sub MyMacro()
    With Application
        .ScreenUpdating = False ' обновление экрана
        .DisplayAlerts = False  ' вывод системных сообщений
        .EnableEvents = False ' чтобы события не выполнились
        .AskToUpdateLinks = False ' чтобы не появлялись запросы на обновления связей
        Report = "N:\DEPARTMENTS\efficiency\Sales\Tracker — копия" ' полный путь к папке с файлами
        
        File = Dir(Report & "*.xls*")
        Do While File <> ""
            With Workbooks.Open(Filename:=Report & File, UpdateLinks:=True) ' открытие файлов в папке по очереди
                          .UpdateRemoteReferences = True ' обновление ссылок после открытия
                          .Close SaveChanges:=True ' созданение и закрытие
            End With
            File = Dir
        Loop
        .ScreenUpdating = True ' обновление экрана
        .DisplayAlerts = True  ' вывод системных сообщений
        .EnableEvents = True ' выполнение событий
        .AskToUpdateLinks = True ' запросы на обновление связей
    End With
End Sub
[/vba]


Сообщение отредактировал gsolodovnikova - Четверг, 24.11.2022, 21:00
 
Ответить
СообщениеПривет коллеги) Подскажите, что я делаю не так?
У меня есть файл с настроенными пивотами на данные из кубов.
Задача сделать файл с кнопкой, который откроет в фоновом режиме файл, все обновит и сохранит.
В идеале, если не получится, то выдаст лог.
И я сделаю себе файл с макросами и буду по кнопочке обновлять нужные файлы.
А еще я загружу один файл в планировщик (пока не знаю как вы это все делаете) и он мне будет сам все обновлять.
По факту я зашла в эксель, ввела в VB этот код.
Он не ругается. Все ок.
Нажимаю отработать макрос. И ничего не происходит.
И файлы так и остались старыми.
и еще Dir у меня не выделен другим цветом (как команда).

[vba]
Код

Sub MyMacro()
    With Application
        .ScreenUpdating = False ' обновление экрана
        .DisplayAlerts = False  ' вывод системных сообщений
        .EnableEvents = False ' чтобы события не выполнились
        .AskToUpdateLinks = False ' чтобы не появлялись запросы на обновления связей
        Report = "N:\DEPARTMENTS\efficiency\Sales\Tracker — копия" ' полный путь к папке с файлами
        
        File = Dir(Report & "*.xls*")
        Do While File <> ""
            With Workbooks.Open(Filename:=Report & File, UpdateLinks:=True) ' открытие файлов в папке по очереди
                          .UpdateRemoteReferences = True ' обновление ссылок после открытия
                          .Close SaveChanges:=True ' созданение и закрытие
            End With
            File = Dir
        Loop
        .ScreenUpdating = True ' обновление экрана
        .DisplayAlerts = True  ' вывод системных сообщений
        .EnableEvents = True ' выполнение событий
        .AskToUpdateLinks = True ' запросы на обновление связей
    End With
End Sub
[/vba]
Автор - gsolodovnikova
Дата добавления - 24.11.2022 в 20:58
Мир MS Excel » Вопросы и решения » Вопросы по Excel » !!!!! ОБНОВЛЕНИЕ ФАЙЛОВ БЕЗ ОТКРЫТИЯ!!!!!
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!