Создание гиперссылки для открытия док-та

Программирование на Visual Basic for Applications
olik111
Обычный пользователь
Обычный пользователь
 
Сообщения: 57
Зарегистрирован: 03.07.2003 (Чт) 3:16

Создание гиперссылки для открытия док-та

Сообщение olik111 » 09.11.2004 (Вт) 10:48

Делаю следующим образом:
Sheets("Главная").Select
For i = 6 To 10000
If Cells(i - 1, 6).Value = "" Then
With Worksheets("Главная")
.Hyperlinks.Add Anchor:=.Cells(i - 1, 6), _
Address:="C:\Техусловия " & number & ".doc"
end With
Exit For
End If
Next
гиперссылку создает, но не открывает указанный документ, хотя путь до него показывает правильно
выдает ошибку: не удается открыть указанный файл, может кто знает почему так???

Igor_123
Осторожный Баянист
Осторожный Баянист
Аватара пользователя
 
Сообщения: 1325
Зарегистрирован: 21.07.2004 (Ср) 13:00
Откуда: Днепропетровск

Сообщение Igor_123 » 09.11.2004 (Вт) 11:51

Address:="file:///C:\Техусловия " & number & ".doc"

olik111
Обычный пользователь
Обычный пользователь
 
Сообщения: 57
Зарегистрирован: 03.07.2003 (Чт) 3:16

Сообщение olik111 » 10.11.2004 (Ср) 4:05

все спасибо уже нашла ошибку, просто не туда цикл вбахала :)

Igor_123
Осторожный Баянист
Осторожный Баянист
Аватара пользователя
 
Сообщения: 1325
Зарегистрирован: 21.07.2004 (Ср) 13:00
Откуда: Днепропетровск

Сообщение Igor_123 » 10.11.2004 (Ср) 19:40

Ах! там ещё и цикл был не там!!! :shock:
По-моему очень даже там :D

olik111
Обычный пользователь
Обычный пользователь
 
Сообщения: 57
Зарегистрирован: 03.07.2003 (Чт) 3:16

Сообщение olik111 » 12.11.2004 (Пт) 8:10

не так выразилась, не цикл а блок, просто я его поставила до закрытия файла шаблона, который эта гиперссылка откравала, поэтому и вылазила ошибка


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2

    TopList