Обновление связей

[Максим Ростовский]

Ситуация следующая. Есть исходная книга Excel, куда каждые день по нескольку раз на день выгружаются данные из программы методом копи/паста. На эту книгу настроены связи нескольких других книг (около 10).
Вопрос, как сделать так, чтобы при обновлении исходной книги автоматически (!!!) обновлялись данные по связям в конечных книгах? Возможно ли это сделать из командной строки? Сейчас приходится каждый раз открывать, нажимать кнопку "обновить", сохранять и закрывать. Связей много, таблицы большие и 10 файлов - занимает прилично времени. Да еще и каждый день!

[EugeneS]

В идеале необходимо было сделать связи из исходного файла с 10-ю остальными файлами, обновлялось бы всё легко нажатием кнопки (при закрытых 10-и файлах).

Если исходить из того, что есть и ничего не переделывать, то можно сделать макрос открывающий файл, обновляющий связи, сохранение и закрытие.

На элементарном уровне его можете сделать и Вы сами, включите во всех 10 файлах автоматическое обновление, сохраните, закройте, далее откройте исходный файл, Сервис - Макросы - Запись и выполняйте Ваши стандартные действия по "обновлению" каждого из десяти файлов. После обновления последнего файла, закройте его и в исходном файле Сервис - Макросы - Остановить запись.

Запуск макроса повторит все Ваши действия.

[Максим Ростовский]

Спасибо за информацию, но второй способ не подошел. Макрос закрывает просто активное окно и все. Не могли бы Вы подробнее описать первый? Какую кнопку нажимать и где?

[EugeneS]

можно сделать, например, так, см. вложение

Файлы "со связями" для удобства должны находиться в одной папке, которую необходимо указать. Макрос откроет и обновит все файлы Эксель в данной папке (кроме файлов во вложенных папках).

Откройте файл запустите макрос "UpdateLinks"

[Максим Ростовский]

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

[EugeneS]

попробуйте вот такой вариант:

Option Explicit
Sub UpdateLinks()
Dim i As Integer, folderpath As String, x As Variant, iname As String, w As Integer
With Application.FileDialog(msoFileDialogFolderPicker): .AllowMultiSelect = False
If .Show = -1 Then
    folderpath = .SelectedItems(1)
Else
Exit Sub
End If: End With
With Application: .Visible = False: .ScreenUpdating = False: End With
With Application.FileSearch: .LookIn = folderpath: .Filename = "*.xls"
If .Execute > 0 Then
    For i = 1 To .FoundFiles.Count
       Application.AskToUpdateLinks = False: Workbooks.Open (.FoundFiles(i))
       With ActiveWorkbook: iname = Mid(.Name, 1, InStr(.Name, ".") - 1)
       x = .LinkSources(xlExcelLinks)
        For w = 1 To UBound(x)
            .BreakLink Name:=x(w), Type:=xlLinkTypeExcelLinks
        Next
       .SaveCopyAs Filename:=folderpath & "\Готово\" & iname & "_Updated.xls": .Close False: End With
    Next i
Else
MsgBox "Файлы с таким расширением не найдены"
End If: With Application: .Visible = True: .ScreenUpdating = True: End With
End With: End Sub

Файлы со связями находятся в одной папке которую необходимо указать в ходе выполнения макроса. Также в этой папке создайте папку "Готово" в которую будут сохранены файлы с обновленными данными, но с разорванными связями. В конце каждого такого файла будет добавлено: "_Updated"

[Максим Ростовский]

Попробовал. В тестовом режиме получилось, на "промышленных" файлах еще не прогонял. Спасибо!
Вы так уклончиво уходили от ответа о батниках, но я все равно снова задам этот вопрос Как сделать так, чтобы этот файлик с макросом запускался и выполнялся в автоматическом режиме? Просто сейчас очень удобно вписал в батник действия с этими файлами - переименование, архивирование, распихивание по папкам этих файлов и отсылка их по почте. И очень хочется в начале этого батника прописать обновление файлов. Есть идеи?

[EugeneS]

Сообщение от Максим Ростовский

...Вы так уклончиво уходили от ответа о батниках, но я все равно снова задам этот вопрос Как сделать так, чтобы этот файлик с макросом запускался и выполнялся в автоматическом режиме? Просто сейчас очень удобно вписал в батник действия с этими файлами - переименование, архивирование, распихивание по папкам этих файлов и отсылка их по почте. И очень хочется в начале этого батника прописать обновление файлов. Есть идеи?

я не уходил от этого вопроса, создание бат-файла выходит за рамки данного раздела форума, поищите в Интернет или на форумах в соответствующих разделах