Добрый день.
В строке
Код:
4 : ExportDBGridEhToOleExcel(DBGridEh1, [oxlsColoredEh, oxlsDataAsDisplayText, oxlsDataAsEditText], True);
вы указываете, что хотите передавать все данные как текст.
Однако эксель почему-то пытается преобразовывать данные в число и делает это неправильно, отбрасывает десятичный разделитель.
На данный момент определить причину не удается.
Как вариант, предлагаем экспортировать числа как числа
Код:
4 : ExportDBGridEhToOleExcel(DBGridEh1, [oxlsColoredEh], True);
либо использовать для экспорта функцию ExportDBGridEhToXlsx
Код:
5 : begin
FName := AppPath + 'file.xlsx';
ExportDBGridEhToXlsx(DBGridEh1, FName, [xlsxColoredEh, xlsxDataAsDisplayText, xlsxDataAsEditText], True);
end;