Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 14.07.2013, 15:18
Elionor Elionor вне форума
Прохожий
 
Регистрация: 14.07.2013
Сообщения: 1
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Delphi and excel

Здравствуйте!
Прошу помощи, подсказки!
Имеется CheckBoxList, SpinEdit. Подключаю ексель через библиотеку ComObj.
Далее если в CheckBoxList активна первая строка , то в екселе в ячейки "D3" вносится число из SpinEdit1, а если активна первая и вторая строка в CheckBoxList, то в ячейку "D3" вноситься число из SpinEdit1 , а из SpinEdit2 в ячейку "D4". Если первая строка не активна, но активна вторая , то из SpinEdit2 заносится в ячейку "D3" ну и так далее вообщем 66 строк.

На данный момент имею:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var se:TSpinEdit;
begin
 Excel:=CreateOleObject('Excel.Application');
 Excel.Application.WorkBooks.Add('C:\Users\Elionor\Desktop\osnova.xls');
 d:=FormatDateTime('dd.mm.yy hh.nn.ss',Now);

 j:=1;
 for i:=0 to CheckListBox1.Count-1 do
  begin
   if CheckListBox1.Checked[i] then
    begin
     se:=TSpinEdit(FindComponent('SpinEdit'+IntToStr(i)));
     if se<>nil then
        Excel.Range['D'+IntToStr(j)]:=se.text;
     Inc(j);

    end;
  end;
Но заполнение ячеек в екселе начинается с "D2" , пишу так:
Код:
Excel.Range['D3'+IntToStr(j)]:=se.text;
тогда заполняет с "D32"
если так:
Код:
Excel.Cells['4,3'+IntToStr(j)]:=se.text;
вообще не заполняет ( или просто не отображает , непонятно..)
кто, что думает?
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 22:17.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025