Help for this page

Select Code to Download


  1. or download this
    push(@Test,{Col1=>$Sheet->Cells(1,1)->{'Value'}})

$SheetOut->write(1,0,encode("cp1250",$Test[0]->{Col1}));
  2. or download this
    1   $String="Č芚Žž";
2   $Test2[0]->{Col1}="Č芚Žž";
...
3   $SheetOut->write(2,0,$String);
4   $SheetOut->write(3,0,$Test2[0]->{Col1});