Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Создать копию файла и заменить ссылки на значения - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Создать копию файла и заменить ссылки на значения (Формулы/Formulas)
Создать копию файла и заменить ссылки на значения
Dimon7832 Дата: Понедельник, 03.02.2020, 18:38 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Доброго времени суток, уважаемые форумчане.
Помогите с созданием макроса.

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

Буду благодарен за помощь.
 
Ответить
СообщениеДоброго времени суток, уважаемые форумчане.
Помогите с созданием макроса.

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

Буду благодарен за помощь.
Автор - Dimon7832
Дата добавления - 03.02.2020 в 18:38
_Boroda_ Дата: Понедельник, 03.02.2020, 19:12 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15768
Репутация: 6152 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Доброго
Хорошо, вот мы сохранили копию (с каким названием?), заменили ячейки, а дальше какой из файлов должен остаться открытым? Первый, второй или оба?

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеДоброго
Хорошо, вот мы сохранили копию (с каким названием?), заменили ячейки, а дальше какой из файлов должен остаться открытым? Первый, второй или оба?
Автор - _Boroda_
Дата добавления - 03.02.2020 в 19:12
Dimon7832 Дата: Вторник, 04.02.2020, 11:17 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Название остается то-же, плюс добавляется "копия" (как и при стандартном копировании в ту-же папку). Открытым остается созданый файл. Хотя, если останутся открытыми оба файла, это не критично.
 
Ответить
СообщениеНазвание остается то-же, плюс добавляется "копия" (как и при стандартном копировании в ту-же папку). Открытым остается созданый файл. Хотя, если останутся открытыми оба файла, это не критично.
Автор - Dimon7832
Дата добавления - 04.02.2020 в 11:17
Nic70y Дата: Вторник, 04.02.2020, 14:49 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5945
Репутация: 1299 ±
Замечаний: 0% ±

ru13;10;03
[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
[/vba]

ЯД(poison) 41001841029809
 
Ответить
Сообщение[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
[/vba]
Автор - Nic70y
Дата добавления - 04.02.2020 в 14:49
Dimon7832 Дата: Четверг, 06.02.2020, 17:44 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
СПАСИБО!!! hands Думаю, тема закрыта yes
 
Ответить
СообщениеСПАСИБО!!! hands Думаю, тема закрыта yes
Автор - Dimon7832
Дата добавления - 06.02.2020 в 17:44
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Создать копию файла и заменить ссылки на значения (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!