Цитата |
---|
написал: Изначально я пытаюсь решить вот эту задачу. |
Код |
---|
=ТЕКСТ(G$4;"ММММ.ГГГГ")=ТЕКСТ(СЕГОДНЯ();"ММММ.ГГГГ") |
14.11.2020 11:17:06
|
|||||
|
29.10.2020 14:12:38
|
|||||
|
13.07.2012 14:09:00
Воспользовался помощью
Результат: Sub ИзменениеСсылок() With Application .ScreenUpdating = False .EnableEvents = False iExcelLinks = ThisWorkbook.LinkSources(xlExcelLinks) iPath = ActiveWorkbook.Path ДлинаПути = Len(iPath) Месяц = Mid(iPath, ДлинаПути - 5, 3) If IsArray(iExcelLinks) = True Then For Each iLink In iExcelLinks iLinks = iLinks & vbCrLf & iLink Оригинал = Mid(iLink, ДлинаПути + 2, 6) ActiveWorkbook.ChangeLink Name:=iLink, _ NewName:=iPath + "\" + Оригинал + Месяц + ".xls", _ Type:=xlExcelLinks Next Else MsgBox "Рабочая книга не содержит внешних ссылок" End If .EnableEvents = True .ScreenUpdating = True End With End Sub |
|
|