VBA для обновления пути к файлу для связанных книг Excel

Question

У меня есть большой файл, в котором собраны несколько рабочих книг, ссылки на которые в файле сводки обновляются каждый месяц. ] 1

Каждый месяц в пути к файлу изменяется только дата. например, мне нужно изменить все ячейки с «WE 1.27.19» на «WE 2.24.19». С помощью функции поиска и замены я получаю приглашение изменить ячейки ИНДИВИДУАЛЬНО, перейдя на общий диск моей компании и щелкнув новый файл.

* +1012 *

Есть ли макрос, который автоматизирует это?

Answer 1

Если мастер-файл никогда не изменяется, возможно:

Sub UpdateSomeLinks()

Dim wb As Workbook
Dim ws As Worksheet
Dim rngLinks As Range
Dim strDate As String

'sets variables
Set wb = myworkbook
Set ws = wb.Worksheets("myworksheet")
Set fd = Application.FileDialog(msoFileDialogFilePicker)

'input box for date
strDate = InputBox("Please type in new date")

'only loops through formula cells
For Each rngLinks In ws.UsedRange.SpecialCells(xlCellTypeFormulas)
    rngLinks.Formula = Replace(rngLinks.Formula, "olddate", strDate)
Next rngLinks

'cleanup
Set ws = Nothing: Set wb = Nothing
Set rngLinks = Nothing: Set fs = Nothing

End Sub

Затем, возможно, кнопка на рабочем листе, которая вызывает вышеуказанную подпрограмму.