Импорт данных из Excel
От: Alexar  
Дата: 13.09.05 11:09
Оценка:
использую компонент
Excel97.TExcelApplication;

засада в следующем:

из некоторых полей(вычисляемых) возврщается не то что нужно

например в поле записано 12:41 а получаю 0.0001532

как с этим боротся?
Спасибо за внимание!
Re: Импорт данных из Excel
От: Drago Россия  
Дата: 13.09.05 11:18
Оценка:
Здравствуйте, Alexar, Вы писали:

A>например в поле записано 12:41 а получаю 0.0001532

A>как с этим боротся?
применяй формат ячейки
Re[2]: Импорт данных из Excel
От: Аноним  
Дата: 13.09.05 12:05
Оценка:
а можно по подробнее как его применить (формат ячейки)?
вот фрагмент кода который я использую

var
  ...
  ISheet:     Excel97.ExcelWorksheet; //лист
  value:OLEVariant;
  str:string;

begin
   ...
  Value := ISheet.Range['Q10', EmptyParam].Value;
  str:=Value;
   ...
end;
Re[3]: Импорт данных из Excel
От: Drago Россия  
Дата: 13.09.05 12:17
Оценка:
Здравствуйте, Аноним, Вы писали:


А>а можно по подробнее как его применить (формат ячейки)?

А>вот фрагмент кода который я использую

var
  ...
  ISheet:     Excel97.ExcelWorksheet; //лист
  str:string;
begin
   ...
  ISheet.Range['Q10', EmptyParam].NumberFormatLocal:='@';  // просто текст
  str := ISheet.Range['Q10', EmptyParam].Value;
   ...
end;


подробнее посмотрите описание свойство NumberFormat и NumberFormatLocal в бейсике Excel
Re[4]: Импорт данных из Excel
От: Alexar  
Дата: 13.09.05 12:35
Оценка:
Здравствуйте, Drago, Вы писали:


А>>а можно по подробнее как его применить (формат ячейки)?

А>>вот фрагмент кода который я использую

D>
D>var
D>  ...
D>  ISheet:     Excel97.ExcelWorksheet; //лист
D>  str:string;
D>begin
D>   ...
D>  ISheet.Range['Q10', EmptyParam].NumberFormatLocal:='@';  // просто текст
D>  str := ISheet.Range['Q10', EmptyParam].Value;
D>   ...
D>end;
D>


не помогло (
Re[5]: Импорт данных из Excel
От: Drago Россия  
Дата: 13.09.05 12:42
Оценка:
Здравствуйте, Alexar, Вы писали:

может Cells попробовать?

  str := ISheet.Cells.Item[10, 17];   
// или
  str := ISheet.Cells.Item[10, 17].Value;   
// или
  str := ISheet.Cells.Item[10, 17].Value2;


Читайте оригинальную документацию. она рулез
Re[6]: Импорт данных из Excel
От: BeeNokle Россия  
Дата: 15.09.05 09:47
Оценка:
Здравствуйте, Drago, Вы писали:

D>Здравствуйте, Alexar, Вы писали:


D>Читайте оригинальную документацию. она рулез


А вообще клево делать так.. Открываешь в excel, выбираешь сохранить как, далее таблица xml, сохраняешь. А потом просто парсишь xml-ник!
Был у меня случай. Когда xml был размером в 30 мегабайт... Весело было бы все это делать через excel.
Разработка и продвижение сайтов http://www.inform-s.ru/
Разработка и продвижение сайтов:
<a href="http://www.inform-s.ru/">http://www.inform-s.ru/&lt;/a&gt;
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.