Новости:

К первому сообщению темы должен быть прикреплен файл примера в формате xls*.
Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит. Да и, как показывает практика, в большинстве случаев без файла решения не найти.

Главное меню

Как сделать абсолютную ссылку при связывании двух файлов?

Автор abs00, 10.01.2012, 16:45

« назад - далее »

abs00

Добрый день!

Такой вопрос: я связал два файла между собой с помощью команды "Вставка-Связь" в Excel 2007. Файлы лежат в одной папке. При переносе файлов на другой компьютер связь перестает работать, т.к. меняется путь к файлам. Это неудобно. Как сделать так, чтобы Excel вставлял ссылку не виде полного пути к файлу (C:\Docs\file.xls), а только на файл? 

kuklp

В модуль книги:
Private Sub Workbook_Open()
   Dim aL(), i&, s
   aL = Me.LinkSources(xlExcelLinks)
   If IsEmpty(aL) Then Exit Sub
   For i = 1 To UBound(aL)
       s = Split(aL(i), "\")
       Me.ChangeLink aL(i), Me.Path & "\" & s(UBound(s)), 1
   Next
End Sub

Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

abs00


kuklp

Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771