Importazione dati dal sito Betdradar con formattazione completa

Tramite questa macro seguente, riesco a importare dati dal sito in oggetto, senza formattazione. Poichè in colonna B vanno a finire dati che sul sito sono colegamenti ipertestuali come posso trasformare questa macro affinchè possa importare dati con formattazione completa? In questo modo ritroverei in colonna B i collegamenti ipertestuali. Grazie

Sub Macro1()

Application.Calculation = xlCalculationManual

myURL = "http://stats.betradar.com/s4/?clientid=5&language=it#2_1,3_17,22_1,5_41264,9_fixtures,231_full,23_1"

Set ie = CreateObject("InternetExplorer.Application")

With ie
.navigate myURL
.Visible = True
Do While .Busy: DoEvents: Loop
Do While .readyState <> 4: DoEvents: Loop
End With
'
myStart = Timer
Do
DoEvents
If Timer > myStart + 2 Or Timer < myStart Then Exit Do
Loop

I = 1
Worksheets("Foglio1").Activate
Range("A:G").Clear
Set mycoll = ie.document.getElementsByTagName("TABLE")
For Each myItm In mycoll
For Each trtr In myItm.Rows
For Each tdtd In trtr.Cells
Cells(I + 1, J + 1) = tdtd.innerText
J = J + 1
Next tdtd
I = I + 1: J = 0
Next trtr
I = I + 1
Next myItm

ie.Quit
Set ie = Nothing
Calculate

End Sub

Quelli che tu chiami "collegamenti ipertestuali" nel sito altro non sono che "link" gestiti tramite Java ... cosa che non ha niente a che fare con i "collegamenti ipertestuali" di Excel.
Copia il link nel Blocco Note e lì si mostrerà in tutta la sua concretezza.

Gent.mo Rollis13. Innanzitutto ti ringrazio per la risposta. Quello che volevo dirti, c'è la possibilità di importare questi link con la macro. Io ho provato con la query web
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://stats.betradar.com/s4/?clientid=5&language=it#2_1,3_17,22_1,5_41264,9_fixtures,231_full,23_1" _
, Destination:=Range("$A$1"))
.CommandType = 0
.Name = _
"?clientid=5&language=it#2_1,3_17,22_1,5_41264,9_fixtures,231_full,23_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingAll
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
ma mi esce il messaggio, nella cella dove avrei dovuto importare i dati, il messaggio:
JavaScript might have been turned off. Please check your browser settings in order to access and use this site.