Как открыть файл?

[Teslenko_EA]

Здравствуйте Swatch.
"..при открытии екселевского .. в этом случае переменная straddress сохраняет не полный путь файла с расширением а только его имя.."

Это заблуждение - не только "..при открытии екселевского ..", Ваша переменная в любом случае получает от Dir только имя файла.
подобный вариант будет работоспособен только в случае если папка расположения файлов будет текущей.
Я ведь не случайно поместил в конструкцию строку:

s = Left(s, InStrRev(s, "\")) + Dir(s + ".*")

Существует возможность открывать/выполнять файлы используя API
Подобную задачу выполнит такая конструкция:

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
    ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub execEvent()
Dim s$
s = rstscan!Scan & ""
If Not Len(s) = 0 Then
s = Left(s, InStrRev(s, "\")) + Dir(s + ".*")
    Call ShellExecute(0, "open", s, "", "", 3)
End Sub

Но в Вашем случае использования гиперссылки вполне достаточно.
Открытие файла с использованием гиперссылки не критично к имени, т.е. допускает использование имен содержащих пробелы (не в пример конструкции с Shell .., не допускающей "Длинные имена").

Успехов Вам.
Евгений.