Hi,

I'm trying to use Excel OLE Automation with Perl. 

It works well but I'm searching something particular. I need to write a
hyperlink inside a cell and displaying something else as the text.

For example, in cell A3 of a worksheet, I need a hyperlink pointing to
google: http://www.google.com but I want to put "Search Engine" as the
text of the cell. Does someone know how to do that. And how do I read
correctly the content of that kind of cells?.

Here's a code snipet where the only thing missing is the code for
writing the hyperlink.
#----- start -----
use strict;
use OLE;

my $excelObj;
my $workbook;
my $worksheet;

$excelObj = CreateObject OLE 'Excel.Application' or die $!;
$excelObj->{'visible'} = 0;

if (defined $excelObj)
{
    # Open the xls file
    $workbook = $excelObj->Workbooks->Open($g_Arguments{'excel'});

    if (defined $workbook)
    {
        # Setup active worksheet
        $worksheet = $workbook->Worksheets(1);

        if (defined $worksheet)
        {
            # Write hyperlink here
            # ...
        }
    }
}
$excelObj->Quit();
#----- end -----

Thanks
Francis

_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to