Закорючки в 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);

Закорючки в Excel Найти похожие ветки