Модераторы: MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Настройка формата ячейки при экспорте 
V
    Опции темы
NOCaut
Дата 10.10.2014, 16:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 381
Регистрация: 5.12.2008

Репутация: нет
Всего: 0



При экспорте в Excel файл с настроенными ячейками как числовое поле без значений после ком.
После экспорта - комы не пропали а офис позначил эту ячейку знаком восклицания с предуприждениям что в нее скопировался текст а не значения

Ничего не помогло:
Код
     
Ap.Sheets[p.Sheet+1].Cells[p.Row+1,p.Col+1].Value   := ValueList[i];
Ap.Sheets[p.Sheet+1].Cells[p.Row+1,p.Col+1].Formula := ValueList[i];
Ap.Sheets[p.Sheet+1].Cells[p.Row+1,p.Col+1] := ValueList[i];


Если так писать то ошибка
Код
      
Ap.Sheets[p.Sheet+1].Cells[p.Row+1,p.Col+1] := StrToFloat(ValueList[i]);

---------------------------
Debugger Exception Notification
---------------------------
Project D3.exe raised exception class EConvertError with message ''' is not a valid floating point value'.
---------------------------
Break   Continue   Help   
---------------------------
PM MAIL   Вверх
Данкинг
Дата 10.10.2014, 23:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 5
Всего: 130



А если .Formular1c1 ?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
NOCaut
Дата 11.10.2014, 09:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 381
Регистрация: 5.12.2008

Репутация: нет
Всего: 0



Я макросом тоже видел такой способ. ну если ничего не придумаю прийдется так
НЕ получилося. Или я неправильно использую свойство? 

Код

      Ap.Sheets[p.Sheet+1].Cells[p.Row+1,p.Col+1].FormulaR1C1 := ValueList[i];


Это сообщение отредактировал(а) NOCaut - 11.10.2014, 09:33
PM MAIL   Вверх
NOCaut
Дата 11.10.2014, 10:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 381
Регистрация: 5.12.2008

Репутация: нет
Всего: 0



Так работает)

Код

function ReplaceComa(Str: string): string;
begin
  Result := StringReplace(Str,',','.',[rfReplaceAll]);
end;

 Ap.Sheets[p.Sheet+1].Cells[p.Row+1,p.Col+1].FormulaR1C1 := ReplaceComa(ValueList[i]);


PM MAIL   Вверх
Данкинг
Дата 11.10.2014, 14:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 5
Всего: 130



NOCaut, тогда следи, чтобы глюков с decimalseparator не было.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
NOCaut
Дата 14.10.2014, 09:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 381
Регистрация: 5.12.2008

Репутация: нет
Всего: 0



угу, спасибо
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: ActiveX/СОМ/CORBA"

Rrader
Girder

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Delphi
  • Вопросы по SQL и вопросы по базам данных, не связанные с Delphi, задавать здесь

Если Вам помогли, и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Rrader, Girder.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: ActiveX/СОМ/CORBA | Следующая тема »


 




[ Время генерации скрипта: 0.1099 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.