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>