MyTetra Share
Делитесь знаниями!
FollowHyperlink
15.10.2019
08:08
Текстовые метки: FollowHyperlink, гиперссылка, Hyperlink
Раздел: !Закладки - VBA - Excel - Листы

Const s = "http://....."


Private 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 OpenSite(ByVal OpenURL As String)


Dim lngOpenUrlBuf As Long


lngOpenUrlBuf = ShellExecute(1&, vbNullString, OpenURL, "", "", 1&)


End Sub


Private Sub Command1Click()

Call OpenSite("http://.....")

End Sub


Sub Button1_Click()

' Dim s As String: s = ""

' s = Replace(TextBox1.Text, " ", "%20")

' Process.Start (s)

' System.Diagnostics.Process.Start (s)

'ThisWorkbook.FollowHyperlink s


'Range("A1").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

Call ThisWorkbook.FollowHyperlink(s)

End Sub


Sub Open_SQL()

Dim ie As Object


Set ie = CreateObject("InternetExplorer.Application")

ie.Visible = True

ie.Navigate s

End Sub

Sub WhiH()

Dim link As Variant

' link = "http://planetaexcel.ru"

CreateObject("WScript.Shell").Run s

Shell """c:\Program Files\Mozilla Firefox\firefox.exe"" -new-window " & "www.planetaexcel.ru", vbNormalFocus

End Sub




' Открываем ссылку, в браузере по умолчанию

' http://vbbook.ru/visual-basic/otkruvaem-ssulky-v-brayzere-po-ymolchaniu/

'

'Автор: Юра (Shade)

'E-mail: Alex-di@list.ru

'ICQ: 486095224


'

'Вот пример как можно открыть ссылку в браузере по умолчанию, тем браузером которым вы пользуетесь.

'

'Поместите этот код в модуль.

'

''API

'Private 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

''=============================================================

''ОТКРЫВАЕМ ВЕБ БРАУЗЕР С УКАЗАННЫМ САЙТОМ

'Public Function OpenSite(ByVal OpenURL As String)

' Dim lngOpenUrlBuf As Long 'Объявлене переменной для хранения

'

' lngOpenUrlBuf = ShellExecute(1&, "Open", OpenURL, "", "", ByVal 1&)

'End Function

'

'Создайте кнопку на форме и напишите так.

'

'Private Sub Command1_Click()

' Call OpenSite("www.vbbook.ru")

'End Sub




Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования