A traves del siguiente código quiero recorrer los hipervinculos de un documento de Excell, lo tengo resuelto en Word y Powerpoint, pero en Excell me da error en la linea marcada en negrita, alguien sabe porque?
Código:
Dim EA As Microsoft.Office.Interop.Excel.Application
Dim WB As Microsoft.Office.Interop.Excel.Workbook
Dim WS As Microsoft.Office.Interop.Excel.Worksheet
Dim HL As Microsoft.Office.Interop.Excel.Hyperlink
EA = New Microsoft.Office.Interop.Excel.Application
EA.Visible = False
WB = EA.Workbooks.Open(pathFichero)
For Each WS In WB.Worksheets
For Each HL In WS.Hyperlinks
With HL
.Address = ModAddress(.Address)
End With
Next HL
Next WS
WB.Save()
WB.Close()
EA.Quit()
EA = Nothing
ModAddress es una Funcion propia para cambiar la url a la que apuntan los links.