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

[Swatch]

Здравствуйте! Подскажите, пожалуйста, вариант решения следующей задачи. Каким образом в ВБА можно открыть (вывести на экран) файл? Сейчас у меня имеется следующее: на сетевом ресурсе (в папке в локальной сети) хранятся сканированные документы. У меня есть таблица в аксессе, где я храню ссылки с адресами для каждого документа. Чтобы из своей базы данных открыть на просмотр какой-либо документ, я использую следующую конструкцию:

If Nz(rstscan!Scan, "") <> "" Then
straddress = rstscan!Scan & ".tif"
            Application.FollowHyperlink straddress, , True, False
End If

т.е. я беру из таблицы полную ссылку на файл, присоединяю расширение .tif, и он благополучно открывается и предстает перед глазами пользователя
Это работает. Теперь собственно, проблема: у меня в этом сетевом каталоге будут храниться не только файлы .tif , но и экселевские и возможно еще какие-то. Так вот, как быть в таком случае? Как открыть файл, не зная его расширения??? Здесь, я так понимаю, метод "Перейти по гиперссылке" применить не удастся...

[R Dmitry]

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

Здравствуйте! Подскажите, пожалуйста, вариант решения следующей задачи. Каким образом в ВБА можно открыть (вывести на экран) файл? Сейчас у меня имеется следующее: на сетевом ресурсе (в папке в локальной сети) хранятся сканированные документы. У меня есть таблица в аксессе, где я храню ссылки с адресами для каждого документа. Чтобы из своей базы данных открыть на просмотр какой-либо документ, я использую следующую конструкцию:

If Nz(rstscan!Scan, "") <> "" Then
straddress = rstscan!Scan & ".tif"
            Application.FollowHyperlink straddress, , True, False
End If

т.е. я беру из таблицы полную ссылку на файл, присоединяю расширение .tif, и он благополучно открывается и предстает перед глазами пользователя
Это работает. Теперь собственно, проблема: у меня в этом сетевом каталоге будут храниться не только файлы .tif , но и экселевские и возможно еще какие-то. Так вот, как быть в таком случае? Как открыть файл, не зная его расширения??? Здесь, я так понимаю, метод "Перейти по гиперссылке" применить не удастся...

Добрый день ,Swatch

стандартными средствами вряд ли получиться, я бы получил сначала список всех файлов в этой папке, затем сравнил бы название, если есть открыл бы файл
зы....
Shell "C:\WINDOWS\system32\calc.exe"

так открывать файлы правильнее

[Swatch]

Shell "C:\WINDOWS\system32\calc.exe"

так открывать файлы правильнее

Дело как раз в том, как "поймать" расширение..... функция шелл мне тут не помощник, потому что нужно это расширение указывать, а у меня в таблице хранятся имена файлов без расширения. Как быть? Я не совсем поняла наверно

я бы получил сначала список всех файлов в этой папке, затем сравнил бы название,

Можно поподробнее, пожалуйста??

[shanemac51]

можно так попробовать

on error resume next
s1="" &  rstscan!Scan
If len(s1)>0 Then
straddress = s1 & ".tif"
Application.FollowHyperlink straddress, , True, False
if err.number=0 then goto next1
straddress = s1 & ".xls"
Application.FollowHyperlink straddress, , True, False
if err.number=0 then goto next1
End If
next1:

[Swatch]

Извините, а что означает

if err.number=0 then goto next1

Я такого кода ошибки не нашла, и вобще какой смысл этой строчки?

[shanemac51]

обход, если гиперссылка уже открыта

зачем проверять xls. если tif--успешно

[R Dmitry]

Ну если не хотите указывать расширение файлов, то тогда можно так

Sub test()
Dim s$, FlName$
s = "C:\WINDOWS\system32\calc"
FlName = Split(s, "\")(UBound(Split(s, "\")))
s = Replace(s, FlName, "")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(s)
For Each File In Folder.Files
On Error Resume Next
        If InStr(1, Split(File, "\")(UBound(Split(File, "\"))), FlName  & ".") > 0 Then Shell  CStr(File)
Next
End Sub

думаю приспособите
С уважением, Дмитрий.

[Teslenko_EA]

Здравствуйте Swatch.
если в сохраненных данных только имя файла (без расширения), и в каталоге нет одноименных файлов разного типа,
а использование гиперссылки для открытия файла критично,
конструкция может быть такой:

Dim s$
s = rstscan!Scan & ""
If Not Len(s) = 0 Then
s = Left(s, InStrRev(s, "\")) + Dir(s + ".*")
            Application.FollowHyperlink s, , True, False
...

Евгений.

[Swatch]

Огромное всем спасибо за советы!

[Swatch]

Вынуждена продолжить тему (((. Я воспользовалась предложенным Евгением способом, и теперь для открытия файла применяю следующее:

If Nz(rstscan!Scan, "") <> "" Then
        straddress = Dir(rstscan!Scan + ".*")
        Application.FollowHyperlink straddress, , True, False
    End If

Для примера в папке я создала 3 файла: сканированный (.tif), вордовский и ексель. Так вот, вордовский файл открывается нормально (у него простое имя - "резюме"), а вот при открытии екселевского (у него имя такое - "17032011_Пользователи сети") возникает ошибка:"Не найдено имя файла или класса при программировании объектов". Причем в этом случае переменная straddress сохраняет не полный путь файла с расширением а только его имя "17032011_Пользователи сети.xls", как будто обрезается. В случае с вордовским файлом все в порядке, берется полный путь файла плюс расширение и открывается как положено. В чем тут может быть проблема? Играет ли тут роль имя файла????
Причем, для экселевского и сканированного файлов как бы я ни меняла их имена, они все равно не открываются.... даже если имена не содержат пробелов и каких то символов . Вордовский документ открывается толкьо если у него имя - 1 слово......