http://www.perlmonks.org?node_id=495472


in reply to Re: Testing for Excel hyperlinks with Win32::OLE
in thread Testing for Excel hyperlinks with Win32::OLE

It doesn't seem like quite the right approach, but I was able to locate the cell containing the hyperlink using $Sheet->Hyperlinks($_)->Range->Column and $Sheet->Hyperlinks($_)->Range->Row.

--
I'd like to be able to assign to an luser

Replies are listed 'Best First'.
Re^3: Testing for Excel hyperlinks with Win32::OLE
by davidrw (Prior) on Sep 27, 2005 at 18:07 UTC
    Ah .. So you could do this at the beginning: 
    my $cellsWithHyperlinks = {};
$cellsWithHyperlinks->{ $_->Column }->{ $_->Row }++
  for map { $Sheet->Hyperlinks($_)->Range } 1 .. $Sheet->Hyperlinks->C
+ount();

    [download]
    And then while you're looping over the cells to write out the HTML: 
    foreach my $col ( 1 .. 10 ){
  warn "Col # $col has hyperlinks somewhere" if exists $cellsWithHyper
+links->{$col};
  foreach my $row ( 1 .. 10 ){
    warn "(Col,Row)=($col,$row) has a hyperlink" if exists $cellsWithH
+yperlinks->{$col}->{$row};
  }
}

    [download]
[reply]
[d/l]
[select]
      Excellent! I think this last bit of code will get me the rest of the way there. I had come across the idea of recording a macro and using it as a basis for my perl code, but had not tried it. The MS Office object model has been a real pain to parse for my overtired brain. Thanks for the help. You've both saved me much time and aggravation. Best, Sergej
[reply]

In Section Seekers of Perl Wisdom