Форум: "Основная";
Текущий архив: 2011.11.20;
Скачать: [xml.tar.bz2];
ВнизЗакорючки в Excel Найти похожие ветки
← →
guest (2010-05-11 18:48) [0]День добрый!
Использую экспорт в Excel, описанный здесь:
http://www.delphiturkiye.com/offline/2/10771.html
а именно в формат BIFF. Результирующий файл XLS в разных версиях Excel показывается по разному - русские буквы показывает нормально, либо закорючками. Замечено, что на одной машине с Office 2007 было нормально, но после очередного обновления Office русские буквы стали не видны. Прошу помощи! Спасибо.
← →
Игорь Шевченко © (2010-05-11 19:39) [1]Мы в свое время QuickReport патчили для устранения проблем с русским шрифтом, а именно явно указывали в biff-файле кодовую страницу
WriteRecordHeader(BOF_BIFF5, 6);
Stream.Write(Buffer, 6);
//SE: 09.06.2009 To enable correct display of cyrillic text in excel file,
// encoding must be specified.
{$IFDEF QR_USE_CURRENT_ACP}
Buffer[0] := GetACP; // Current active code page
{$ELSE}
Buffer[0] := gExcelExportCodePage;
{$ENDIF}
Buffer[1] := 0;
Buffer[2] := 0;
Buffer[3] := 0;
Buffer[4] := 0;
WriteRecordHeader($0042, 2);
Stream.Write(Buffer, 2);
//SE: 09.06.2009 end of changes
← →
guest (2010-05-12 10:07) [2]Утро доброе!
Спасибо большре, появилась надежда, что не надо будет переделывать на другой способ экспорта. А вот по этим функциям можно поподробней?{$IFDEF QR_USE_CURRENT_ACP}
Buffer[0] := GetACP; // Current active code page
{$ELSE}
Buffer[0] := gExcelExportCodePage;
← →
guest (2010-05-12 10:44) [3]Спасибо, все получилось!
WriteRecordHeader(BOF_BIFF5, 6);
fStream.Write(Buffer, 6);
WriteRecordHeader($0042, 2); // Заголовок кодовой страницы
Buffer[0] := $04E3; // Кодовая страница 1251 = Windows CP-1251 (Cyrillic)
fStream.Write(Buffer, 2);
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2011.11.20;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.003 c