VPF::export from excel - delphi - Форум программистов

dimaximo

Дата 29.4.2010, 16:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

пробывал вставлять конструкцию...не идёт

Код


var i:real;
      s:string;
...{в указанном диапазоне данные формата h:mm}
for r:=4 to Y do
     if (XLApp.Range['A4',EmptyParam].NumberFormat<>'h:mm;@') 
     then begin
               XLApp.Range['A4',XLApp.Cells.Item[r,k]].Value:='0'
               xlapp.Range['A4',XLApp.Cells.Item[r,k]].NumberFormat:='h:mm;@';
               i:=xlapp.Range['A4',XLApp.Cells.Item[r,k]].Text;                      {в отладчике i=0, а не 0.00}
               s:=xlapp.Range['A4',XLApp.Cells.Item[r,k]].NumberFormat      {в отладчике для всех ячеек s='основной', хотя большинство ячеек формата "Время"}
             end;

ни как не получается разобраться в этом smile

А хотелось бы сделать проверку - какие данные записаны в ячейке: с общим форматом или время... Те что с общим форматом - сделать 0:00. Может у вас будут какие-нибудь идеи

Это сообщение отредактировал(а) dimaximo - 29.4.2010, 16:19

Albinos_x

Дата 29.4.2010, 16:25 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108

Цитата(dimaximo @ 29.4.2010, 15:30

)

попробывал...выдает ошибку Statement expected, but expression of type 'TDateTime' found

хм... а если так:

Код


DateTimeToString(s,'t', Double(RangeMatrix[K+1,R]));

Добавлено через 1 минуту и 30 секунд

Цитата(dimaximo @ 29.4.2010, 16:01

)

['A4',XLApp.Cells.Item[r,k]].

что-то ты перемудрил здесь.... в качестве адреса ссылка на ячейку не прокатит...

Добавлено через 9 минут и 37 секунд
Проверь, есть ли у XLApp.Cells.Item[r,k] свойство NumberFormat, если есть, то используй его, если нет, то для адресации по ячейкам (получения буквенного адреса) для XLApp.Range['A4','a3'] используй функцию, которую я приводил в теме http://forum.vingrad.ru/forum/topic-84634.html# :

Код


// организую адресацию по столбцам в Excel
function AddresColExcel(const Num:word):string;
var len, N:word;
ch:string;
begin
N:=Num;
ch:=char(ord('A')+(Num mod 26));
N:=N div 26;
while N<>0 do
begin
len:=Length(ch)+1;
SetLength(ch,Len);
ch[len]:=char(ord('A')+(N mod 26)-1);
N:=N div 26;
end;
len:=Length(ch);
SetLength(Result,len);
for n:=1 to len do
Result[n]:=ch[len+1-n];
end;

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

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