Квадратик

← →
Shum © (2003-07-09 15:20) [0]

Добрый день!
Ситуация такая.
При экспорте строки в Excel, если есть перенос строки, на его месте в Excele появляется квадратик
Кто-нибудь знает, как вылечить?
Помогите, плиз..

← →
bushmen © (2003-07-09 15:25) [1]

А кто тебе мешает перед переброской строки в Excel удалить этот перенос?

← →
Shum © (2003-07-09 15:29) [2]

Надо чтобы перенос был, несколько строк идет
по моему в Дельфи перенос идет #D#A, в экселе несколько по другому.
Пробовал AdjustLineBreaks, не лечит

← →
bushmen © (2003-07-09 15:43) [3]

To Shum ©:
А через set excl = CreateOLEObject("Excel.Application") не пробовал?

← →
clickmaker © (2003-07-09 15:45) [4]

Попробуй оставить один #A

← →
DenK_vrtz © (2003-07-09 15:46) [5]

Shum © (09.07.03 15:29), это как по другому?!
Возврат каретки chr(13)+chr(10), по-моему всегда и везде так было!

← →
bushmen © (2003-07-09 15:47) [6]

В Excel можно ещё vbCrLf

← →
SergSuper (2003-07-09 15:48) [7]

А как у Вас делается экспорт в Excel?

← →
Johnmen © (2003-07-09 16:01) [8]

>DenK_vrtz © (09.07.03 15:46)

Не совсем так...:)
#13 - возврат каретки в начало строки
#10 - переход каретки к новой строке

← →
DenK_vrtz © (2003-07-09 16:04) [9]

Johnmen © (09.07.03 16:01), точно точно, Ваша правда! :-)

← →
DenK_vrtz © (2003-07-09 16:11) [10]

Johnmen © (09.07.03 16:01), хотя сейчас еще раз попробовал chr(13)+chr(10) правильно работает и в Excel копируется без проблем!

Данные из мемо сохраняются в таблице MSSQL2000, непосредственно оттуда идет экспорт
Примерно так
FWorkSheet.Range["НАЗНАЧЕНИЕ_ПЛАТЕЖА"].Value:=
MainQueryRemark.Asstring;

через CreateOLEObject

Короче, фишка в том, что в Дельфи перевод идет #13#10, а в эеле только одно из значений, не помню, #13 или #10, второе отображается как квадратик. И вот как бы ево вырезать?

FWorkSheet.Range["НАЗНАЧЕНИЕ_ПЛАТЕЖА"].Value := StringReplace(MainQueryRemark.Asstring, #13#10, #10, [rfReplaceAll]);

Квадратик Найти похожие ветки