Создаю из скрипта XLS-файл:
| Код |
use Spreadsheet::WriteExcel;
...............................
my $workbook = Spreadsheet::WriteExcel->new("./unzipped/file-1.xls");
$workbook->set_codepage(1); # ANSI, MS Windows
my $worksheet = $workbook->add_worksheet("Закладка 1");
my $heading3 = $workbook->add_format(
size => 10,
merge => 1,
color => 'white',
align => 'vcenter',
);
$heading3->set_bg_color('navy');
$worksheet->set_column(0, 0, 52);
$worksheet->set_row(1, 36);
$worksheet->write(1, 0, Encode::decode("koi8-r", "Данные по базе"), $heading3 );
...............................
|
В ячейках русский текст выводится нормально, а наименование "Закладка 1" - кракозябрами
как сделать, чтобы и там русский был? |