VBA использует Workbooks.OpenXML по очень длинной гиперссылке

Question

Система отчетности, которую я использую, генерирует XML-файлы, которые можно открыть в Excel.Система позволяет вводить множество параметров, которые генерируют очень длинные гиперссылки на нужный отчет.

Когда я использую метод FollowHyperlink, ссылка открывается идеально (но появляется всплывающее окно с просьбой подтвердить).Когда я использую метод OpenXML, файл открывается неправильно.Я предполагаю, что этот метод ограничен 256 символами или чем-то еще.

Вопрос в том, что я хочу избежать всплывающего окна.Application.DisplayAlerts не устраняет всплывающее окно.Как я могу использовать метод OpenXML для очень длинных (505 символов) гиперссылок?

Код с использованием FollowHyperlink:

Option Explicit

Public OrgNr As String

Sub DownLoad()
Dim CurrentLink As String

    Application.DisplayAlerts = False


Nr = InputBox("Select your number")

CurrentLink = "http://mysite.intra/LRF/XMLWeb/HRNode/GLOBAL/OT/L1/getOT_Excel.jsp?org_nr=" & Nr & "&text=text%3D1&param=param%3D1&param2=param2%3D1&civ=Civ%3D1&a1=a1&a19=a19&b12=b12&a2=a2&a20=a20&b13=b13&a3=a3&a21=a21&b14=b14&a4=a4&a22=a22&b15=b15&a5=a5&a23=a23&b16=b16&a6=a6&a24=a24&b17=b17&a7=a7&b1=b1&c1=c1&a8=a8&b2=b2&c2=c2&a9=a9&b3=b3&c3=c3&a10=a10&b4=b4&c4=c4&a11=a11&b5=b5&d1=d1&a12=a12&b6=b6&d2=d2&a13=a13&b7=b7&d3=d3&a14=a14&b8=b8&d4=d4&a15=a15&b9=b9&d5=d5&a16=a16&b10=b10&d6=d6&a17=a17&b11=b11&d7=d7&a18=a18"

'Need to use followhyperlink as link exceeds number of allow characters for openXML

ThisWorkbook.FollowHyperlink(CurrentLink)
'What I'd like to use:

   'Dim wb As workbook
   'Set wb = Workbooks.OpenXML(CurrentLink) 

    Application.DisplayAlerts = True

End Sub