Ver Mensaje Individual
  #1 (permalink)  
Antiguo 22/06/2005, 05:06
Avatar de txarly
txarly
 
Fecha de Ingreso: marzo-2003
Ubicación: Eibar (Gipuzkoa)
Mensajes: 455
Antigüedad: 22 años
Puntos: 2
.NET y Excell

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.
__________________
¿Por qué Uri Geller doblaba cucharas?

Última edición por txarly; 28/06/2005 a las 03:40