Доброго времени суток, уважаемые форумчане. Помогите с созданием макроса.
Нужно создать копию файла в текущей папке и на всех листах заменить ячейки, имеющие внешние ссылки на их значения (формулы, имеющие ссылки внутри книги, оставить без изменений).
Буду благодарен за помощь.
Доброго времени суток, уважаемые форумчане. Помогите с созданием макроса.
Нужно создать копию файла в текущей папке и на всех листах заменить ячейки, имеющие внешние ссылки на их значения (формулы, имеющие ссылки внутри книги, оставить без изменений).
Доброго Хорошо, вот мы сохранили копию (с каким названием?), заменили ячейки, а дальше какой из файлов должен остаться открытым? Первый, второй или оба?
Доброго Хорошо, вот мы сохранили копию (с каким названием?), заменили ячейки, а дальше какой из файлов должен остаться открытым? Первый, второй или оба?_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
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
Думаю, тема закрыта 
