MyTetra Share
Делитесь знаниями!
Открыть ссылку в internetexplorer
Время создания: 18.02.2021 14:09
Текстовые метки: VBA_IEXPLORE, internetexplorer
Раздел: !Закладки - VBA
Запись: adgaver/mytetra_base_New/master/base/16136465651ooy6nk72f/text.html на raw.githubusercontent.com

Sub Link_Gret_Short_Fde()

strLink = fun_Concat_ar(2)

Call Open_Link_in_IE_XPLORE(strLink)

End Sub

Sub Open_Link_in_IE_XPLORE(ByVal strLink As String)

x = Shell("""C:\Program Files\Internet Explorer\IEXPLORE.EXE""" & _

strLink, vbMaximizedFocus)

'x = Shell("""C:\Program Files\Internet Explorer\IEXPLORE.EXE""" & " ""http://www.planetaexcel.ru""" , vbNormalNoFocus)

'x = Shell("""C:\Program Files\Internet Explorer\IEXPLORE.EXE""" & " ""http://www.planetaexcel.ru""", vbNormalNoFocus)

End Sub


Function fun_Concat_ar(ByVal int_Cln_ar As Integer)

Const CONST_int_RowStart As Integer = 7

Const CONST_int_RowEnd As Integer = 20

Dim ar As Variant, strLink As String

ar = Range(Cells(CONST_int_RowStart, int_Cln_ar), Cells(CONST_int_RowEnd, int_Cln_ar)).Value

strLink = ar(1, 1)

For i = LBound(ar) + 1 To UBound(ar)

strLink = strLink & ar(i, 1)

Next i

fun_Concat_ar = Trim(strLink)

End Function

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