Консультация № 121556
04.02.2008, 10:28
0.00 руб.
0 1 1
Доброго времени суток! Вопрос по VBA Exel.
В ячейке рабочего листа хранится адрес интернет. На моей форме UserForm1 есть кнопка CommfndButton1. Форма загружается при открытии книги.
Как сделать так, чтобы при нажатии на кнопку открылся документ, ссылка на который хранится в ячейке?

Обсуждение

давно
Специалист
399094
201
05.02.2008, 01:11
общий
это ответ
Здравствуйте, Фоменко Сергей Владимирович!
Можно использовать API функцию ShellExecute
Чтобы всё заработало откройте редактор VBA и создайте
модуль в него скопируйте вот этот код:
<code>Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As _
String, ByVal lpszFile As String, ByVal lpszParams As String, _
ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long

Public Sub RunTheFile()
Call ShellExecute(Application.hwnd, vbNullString, ActiveCell.Value, vbNullString, vbNullString, 5)
End Sub
</code>
ActiveCell.Value - это значение активной ячейки рабочего листа в нем
должен содержаться адрес сайта или путь к файлу, если что ВЫ сможете переделать под свои нужды.
Теперь можно вызвать процедуру в обработчике Click кнопки CommandButton1
<code>
Private Sub CommandButton1_Click()
RunTheFile
End Sub
</code>
Форма ответа