Доброго времени суток, уважаемые форумчане. Помогите с созданием макроса.
Нужно создать копию файла в текущей папке и на всех листах заменить ячейки, имеющие внешние ссылки на их значения (формулы, имеющие ссылки внутри книги, оставить без изменений).
Буду благодарен за помощь.
Доброго времени суток, уважаемые форумчане. Помогите с созданием макроса.
Нужно создать копию файла в текущей папке и на всех листах заменить ячейки, имеющие внешние ссылки на их значения (формулы, имеющие ссылки внутри книги, оставить без изменений).
Доброго Хорошо, вот мы сохранили копию (с каким названием?), заменили ячейки, а дальше какой из файлов должен остаться открытым? Первый, второй или оба?
Доброго Хорошо, вот мы сохранили копию (с каким названием?), заменили ячейки, а дальше какой из файлов должен остаться открытым? Первый, второй или оба?_Boroda_
Название остается то-же, плюс добавляется "копия" (как и при стандартном копировании в ту-же папку). Открытым остается созданый файл. Хотя, если останутся открытыми оба файла, это не критично.
Название остается то-же, плюс добавляется "копия" (как и при стандартном копировании в ту-же папку). Открытым остается созданый файл. Хотя, если останутся открытыми оба файла, это не критично.Dimon7832
Sub u_700() u_01 = ThisWorkbook.LinkSources(xlExcelLinks) If Not IsEmpty(u_01) Then For u = LBound(u_01) To UBound(u_01) ThisWorkbook.BreakLink Name:=u_01(u), Type:=xlLinkTypeExcelLinks Next End If u_02 = ThisWorkbook.Path u_03 = ThisWorkbook.Name ThisWorkbook.SaveAs Filename:=u_02 & "\Копия_" & u_03 End Sub
[/vba]
[vba]
Код
Sub u_700() u_01 = ThisWorkbook.LinkSources(xlExcelLinks) If Not IsEmpty(u_01) Then For u = LBound(u_01) To UBound(u_01) ThisWorkbook.BreakLink Name:=u_01(u), Type:=xlLinkTypeExcelLinks Next End If u_02 = ThisWorkbook.Path u_03 = ThisWorkbook.Name ThisWorkbook.SaveAs Filename:=u_02 & "\Копия_" & u_03 End Sub