none
Гиперссылки в файле exel RRS feed

  • Общие обсуждения

  • Здравствуйте, имеем файл формата exel в котором находятся множество гиперссылок указывающих на расположение определенных  pdf документов. Порядка трех месяцев назад в гиперссылках стали перебиваться часть пути, к примеру: с "S:\photo\start" на "\elenak\AppData\Roaming\Microsoft\Excel". Когда полный путь (к примеру) "S:\photo\start\laola\street.pdf". Доступ на изменение файла есть только у одного пользователя.

    Раннее выручал скрипт:

    On Error Resume Next
    Dim hl As Hyperlink, oldString As String, newString As String, sh As Worksheet
    oldString = "..\. .\elenak\AppData\Roaming\Microsoft\Excel"
    newString = "S:\photo\start"
    For Each sh In ActiveWorkbook.Worksheets
    For Each hl In sh.Hyperlinks
    If hl.Address Like oldString & "*" Then
    hl.Address = Replace(hl.Address, oldString, newString)
    End If
    Next
    Next sh


    Работа с скриптом это естественно временное решение. Хотелось бы избежать подобных инцидентов в будущем. Что можете посоветовать (кроме как переустановка самого office, так как это уже делалось)?



    • Изменен тип Anton Sashev Ivanov 27 марта 2017 г. 11:17 Тема переведена в разряд обсуждений по причине отсутствия активности.
    15 марта 2017 г. 11:33

Все ответы

  • Здравствуйте,

    Подскажите, пожалуйста, у вас на целевом компьютере стоит ли какое нибудь Антивирусное ПО или Брандмауэр?


    Если Вам помог чей-либо ответ, пожалуйста, не забывайте жать на кнопку "Предложить как ответ" или "Проголосовать за полезное сообщение" Мнения, высказанные здесь, являются отражение моих личных взглядов, а не позиции корпорации Microsoft. Вся информация предоставляется "как есть" без каких-либо гарантий.

    16 марта 2017 г. 7:20
  • Здравствуйте, стоит NOD32, брандмауер отключен. Хотел бы еще добавить, что сам файл находится на сервере. И получают доступ по smb.
    16 марта 2017 г. 9:09
  • ну не ужели нет решения ?(
    23 марта 2017 г. 11:35