Форум: "Потрепаться";
Текущий архив: 2003.07.24;
Скачать: [xml.tar.bz2];
Вниз
Квадратик Найти похожие ветки
← →
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 копируется без проблем!
← →
Shum (2003-07-09 16:35) [11]Данные из мемо сохраняются в таблице MSSQL2000, непосредственно оттуда идет экспорт
Примерно так
FWorkSheet.Range["НАЗНАЧЕНИЕ_ПЛАТЕЖА"].Value:=
MainQueryRemark.Asstring;
← →
Shum (2003-07-09 16:38) [12]через CreateOLEObject
← →
bushmen (2003-07-09 16:40) [13]To Shum ©:
Смотри DenK_vrtz ©
← →
Shum (2003-07-09 16:58) [14]Короче, фишка в том, что в Дельфи перевод идет #13#10, а в эеле только одно из значений, не помню, #13 или #10, второе отображается как квадратик. И вот как бы ево вырезать?
← →
clickmaker (2003-07-09 18:58) [15]FWorkSheet.Range["НАЗНАЧЕНИЕ_ПЛАТЕЖА"].Value := StringReplace(MainQueryRemark.Asstring, #13#10, #10, [rfReplaceAll]);
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.07.24;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.015 c
