TdxDBGridExportExcel = class(TdxDBGridExport)
…………………
procedure DoWriteRecord(Node: TdxTreeListNode); override;
if Node = nil then
begin
//+++
if DataType = ftMemo then
S:=AsString
else
//+++
S := DisplayText
end
else
S := TdxDBGridNode(Node).Strings[Columns[VisColIndexes[i]].Index];