![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 27.03.2009
Сообщений: 8
|
![]()
Доброго времени суток, уважаемые форумчане!
Есть 2 файла Результат и Исходные данные. На Листе1 файла Результат есть ссылки, записанные в таком виде, например:='{File_name}data'!$B$18. Лист data есть в файле Исходные данные. Необходимо, чтобы процедура заменяла именно ссылку '{File_name}data' на ссылку на файл, выбранный пользователем и не трогала другие ссылки (внутренние связи) в книге Результат. Как можно поправить следующий код? Private Sub new_change_data() alinks = ActiveWorkbook.LinkSources(xlExcelL inks) FileOldLink = alinks(1) FileToLink = Application.GetOpenFilename("Exl files(*.xls),*.xls") If FileToLink = False Then Exit Sub End If ActiveWorkbook.ChangeLink FileOldLink, FileToLink, xlExcelLinks End Sub Заранее спасибо! |
![]() |
![]() |
![]() |
#2 | |
Форумчанин
Регистрация: 25.04.2010
Сообщений: 254
|
![]()
Можно поработать со строкой...
Цитата:
помогать студентам - моя вторая профессия
|
|
![]() |
![]() |
![]() |
#3 |
Регистрация: 27.03.2009
Сообщений: 8
|
![]()
Спасибо
![]() |
![]() |
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 25.04.2010
Сообщений: 254
|
![]()
А если надо все, так ваш вариант все и заменял.
помогать студентам - моя вторая профессия
|
![]() |
![]() |
![]() |
#5 |
Регистрация: 27.03.2009
Сообщений: 8
|
![]()
Проблема в том, что код как-то нестабильно работает на разных файлах, причем на одном и том же компьютере. В одном файле меняет '{File_name}data без проблем, в другом заодно меняет на другом листе внутреннюю ссылку, в третьем, в частности в приложенном примере заменяет ссылки лишь со второго нажатия Ок окна Select sheet. Сломала голову уже
![]() |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
массовая замена ссылок в куче файлов | kzld | Microsoft Office Excel | 0 | 22.11.2010 12:48 |
Замена кода программы с Delhi5 на Delhi7 либо замена базы данных с Acessa на MySQL | DorianLeroy | Фриланс | 8 | 18.02.2009 18:52 |
Поиск в книге | Andr | Microsoft Office Excel | 1 | 20.11.2007 21:47 |
Поиск в книге | asale | Microsoft Office Excel | 7 | 26.01.2007 07:29 |