Автоматические гиперссылки о ячейкам.

[TiG]

Приветствую товарищи. Если кто нить компетентен в нижеприведенном вопросе, просветите пожалуйста.
а) Имеются xls. таблицы, с перечнем названий документов в ячейках.
б) Сетевой диск с самими документами, указанными в таблице (с такими же конкретно названиями).
Можно ли, автоматически (не вручную) привязать гиперссылки данным ячейкам на данные документы.
Просто речь идет о десятке тысяч документов. И делать данное дело в ручную не совсем актуально)))
Если есть ссылки на какую полезную в данном вопросе литературу, кидайте , не жалейте)))
И заранее спасибо!

[motorway]

Есть такая функция - ГИПЕРССЫЛКА. Можно макросом сделать во всех ячейках эту функцию с аргументом в виде адреса. Литературы по Экселю 2007 много, есть хороший самоучитель "С. В. Глушаков, А. С. Сурядный Microsoft Excel 2007. Лучший самоучитель". Это если нужно полностью изучить вопрос.
Либо просто на другой лист поместите формулу со ссылкой на ячейки 1 листа и протяните ее.

[Teslenko_EA]

Здравствуйте TiG.
ссылок нет, "кидаю не жалею" код для изучения

Sub hyperLink()
Const sFolder = "C:\TEMP" 'стартовая папка
Dim o, s$
For Each o In Range("A1:G100") 'Cells
    s = o.Text
    If Not Len(o.Text) = 0 Then
    With Application.FileSearch
        .LookIn = sFolder
        .SearchSubFolders = True
        .FileType = msoFileTypeOfficeFiles 'msoFileTypeAllFiles
        .Filename = s
        If Not .Execute = 0 Then _
            ActiveSheet.Hyperlinks.Add Anchor:=o, Address:= .FoundFiles(1)
    End With
    End If
Next
End Sub

Евгений.

[SAS888]

Позволю заметить, что метод FileSearch не будет работать в Excel 2007.

[TiG]

Сообщение от Teslenko_EA

Здравствуйте TiG.
ссылок нет, "кидаю не жалею" код для изучения

Sub hyperLink()
Const sFolder = "C:\TEMP" 'стартовая папка
Dim o, s$
For Each o In Range("A1:G100") 'Cells
    s = o.Text
    If Not Len(o.Text) = 0 Then
    With Application.FileSearch
        .LookIn = sFolder
        .SearchSubFolders = True
        .FileType = msoFileTypeOfficeFiles 'msoFileTypeAllFiles
        .Filename = s
        If Not .Execute = 0 Then _
            ActiveSheet.Hyperlinks.Add Anchor:=o, Address:= .FoundFiles(1)
    End With
    End If
Next
End Sub

Евгений.

Привелико благодарен.
Действенный код)))))))))))))))))))))))