Editing Cell Hyperlink Using Perl OLE.pm

[Anonymous Monk]

I know how to read an Excel cell's hyperlink value. What is the syntax to set or change a cell's hyperlink value? -docuSwear

[jmcnamara]

Here is a short example:

    #!/usr/bin/perl -w

    use strict;
    use Cwd;
    use Win32::OLE;
    use Win32::OLE::Const 'Microsoft Excel';


    my $application = Win32::OLE->new("Excel.Application");
    my $workbook    = $application->Workbooks->Add;
    my $worksheet   = $workbook->Worksheets(1);


    # Write a hyperlink
    my $range = $worksheet->Range("B2:B2");
    $worksheet->Hyperlinks->Add({Anchor  => $range,
                                 Address => "http://www.perl.com/"});


    # Get current directory using Cwd.pm
    $workbook->SaveAs({FileName => cwd() . '/win32ole.xls'});
    $workbook->Close;

    __END__

--
John.

[Anonymous Monk]

OK so how DO you read an Excel cell's hyperlink value with Win32::OLE; That is what I'm stuck on. It seems to be in $range->{'Hyperlinks'}->{'Item'} but I can't read Item. tnks hal