Foros Club Delphi - Ver Mensaje Individual - Leer el hyperlik de una celda en un archivo de excel

olbeup · #5 11-05-2010

En la parte de arriba donde están los Uses, incluye también el (ComObj)

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
var
  Excel, Libro, Hoja: OleVariant;
begin
  Excel := CreateOleObject('Excel.Application');

  Libro := Excel.WorkBooks.Open('C:\ruta\al\archivo.xls');

  Hoja := Libro.ActiveSheet;

  Excel.Visible := False;

  ShowMessage(Hoja.Cells[2, 'B'].Hyperlinks[1].Address);
end;