Open links using vba without FollowHyperlink

Question

On my vba procedure, I have ActiveWorkbook.FollowHyperlink Address:=link but "Link" is often too big for the function to use because "link" could hold string values as big as a small paragraph and this causes me to have a run-time error. It works with links with smaller string size but the with the big ones, if fails with this exact error below

Is there another way to open links using vba that could handle big urls?

Could you share one of those links so we have something to test with? — VBasic2008
– VBasic2008, Commented Mar 18, 2021 at 20:55
the link is behind a private network on a government server so unfortunately I can't share it — answerSeeker
– answerSeeker, Commented Mar 18, 2021 at 21:31

FaneDuru · Accepted Answer · 2021-03-18 21:07:47Z

1

Please, try using API. It should accept the URL maximum string length (2048).

Copy the next code on top of a standard module (in the declarations area):

Option Explicit

Private Declare PtrSafe 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 LongPtr

Copy the next code in the standard module where the API function has been copied:

Sub testOpenURL
   ShellExecute 0&, vbNullString, "http://www.your big string representing URL", vbNullString, vbNullString, 5
End Sub

answered Mar 18, 2021 at 21:07

FaneDuru

42.3k4 gold badges22 silver badges30 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Open links using vba without FollowHyperlink

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related