Выбор файла, ссылку на него присвоить переменной.

[FiataliS]

Добрый день.

В общем вот что нашел.

Public Function GetFilePath() As String
Module6.name


' Функция возвращает путь к файлу в виде строки 
On Error GoTo err_ERROR
Set AsS = CreateObject("excel.application")
GetFilePath = AsS.GetOpenFilename("???? ?????? (*.xls), *.xls")
Set AsS = Nothing
Err_EXIT:
Exit Function
err_ERROR:
GetFilePath = "ERROR " & Err.Number & vbCrLf & Err.Description
Resume Err_EXIT

End Function

Требуеться чтоб при выборе документа, ссылка на него вставлялась в ячейку.

Проблема в том что не могу найти ту переменную которой присваивается ссылка на выбраный документ. Или здесь ее вообще нет

[SAS888]

Требуется, чтоб при выборе документа, ссылка на него вставлялась в ячейку.

Активируйте требуемую ячейку и запустите макрос:

Sub qq()
    f = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*")
    If f = False Then Exit Sub
    ActiveSheet.Hyperlinks.Add ActiveCell, f
End Sub

[FiataliS]

Все четко работает, Спасибо.