Re: Using Win32::OLE and Excel - Tips and Tricks

[Anonymous Monk]

Hi cacharbe,
I'm trying to fill up an excel sheet following a format wich is stored in an excel template (just in a regular excel file).
This tutorial is really help me, but there's still something hard to do : find out wich cells are merged in the template and merging the matching cells in the output file.
I have found the MergeCells property, a boolean that tells you if there are a merged cell in the parent object. MergeArea returns a range of merged cells containing a given cell. My problem is I cant find a way to extract the row & col indexes to reproduce the merge on the output file.
Any idea about, it.
mehdi aziz
[e-mail]

[Anonymous Monk]

I have a problem with this:

my $indents = $Sheet->Range( "A1:B2" )->{'IndentLevel'};

If i use 'Value' in stead of IndentLevel everything works fine.

Any ansers?

[Anonymous Monk]

Hi aziz, Sorry that I am asking you a question instead of an answer.Can u give me the syntax to merge cells in excel using perl(with OLEs)? Thanks, Sree

[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.