in reply to Re: Use of Unicode Encodings in perl
in thread %p issue on perl script

Hi,

Some how i solved this issue. I set the font to that spread sheet as below and now i dont have any issue in printing non-english strings.

$Sheet2->Range("A100:Z100")->Font->{FontStyle}="Arial Unicode MS";

[download]

But again i stuck up with another issue on printing the string into a spreadsheet.

I am printing a string into an spreadsheet with an row input from an for loop. Below is the code snippet of an for loop for better understanding.

    for($i=0;$i<$out_size;$i++)
    {
        $Sheet2 -> Range("A$i") -> {'Value'} = $gm_out[$i][0];
        $Sheet2 -> Range("B$i") -> {'Value'} = $gm_out[$i][1];
        $Sheet2 -> Range("C$i") -> {'Value'} = $gm_out[$i][2];
        $Sheet2 -> Range("D$i") -> {'Value'} = $gm_out[$i][3];
    }

[download]

Here the problem comes from an "Range". I am getting an error when i run this program an error pointing to "Range".

Please suggest me an idea on how to input the "Range" with an variable size so that i can print an array $gm_out$ix into the variable ranges of ROW in the columns A, B, C & D.

Please provide your help

Replies are listed 'Best First'.
Re^3: Use of Unicode Encodings in perl
by Anonymous Monk on Sep 16, 2009 at 16:47 UTC
    Here the problem comes from an "Range". I am getting an error when i run this program an error pointing to "Range".

    What error?!

[reply]

      Below is the error which i pointed out for the range.

      Win32::OLE(0.1707) error 0x800a03ec
    in METHOD/PROPERTYGET "Range" at Nissan_NVL_FB_Display_WINDOWS.pl 
+line 170

      [download]

      Also i tried by extracting the cell value seprately and feed it into the "Range" like below. But still it ends up with same error as mentioned above.

          for($i=0;$i<$out_size;$i++)
    {
        $value = "A".$i;
        $value =~ s/(^\s+|\s+$)//g;
        printf "tsathish %s\n", $value;
        $Sheet2 -> Range($value) -> {'Value'} = $gm_out[$i][0];
        $Sheet2 -> Range($value) -> {'Value'} = $gm_out[$i][1];
        $Sheet2 -> Range($value) -> {'Value'} = $gm_out[$i][2];
        $Sheet2 -> Range($value) -> {'Value'} = $gm_out[$i][3];    }
}

      [download]
[reply]
[d/l]
[select]
[reply]

In Section Seekers of Perl Wisdom