[Elionor]

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

На данный момент имею:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

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" , пишу так:

Код:

1	Excel.Range['D3'+IntToStr(j)]:=se.text;

тогда заполняет с "D32"
если так:

Код:

1	Excel.Cells['4,3'+IntToStr(j)]:=se.text;

вообще не заполняет ( или просто не отображает , непонятно..)
кто, что думает?

[Alegun]

У SpinEdit вместо Text можно сразу использовать Value. Попробуйте так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.Button1Click(Sender: TObject); var  i, j: integer; begin  ...    j:= 3;  for i := 0 to CheckListBox1.Count-1 do   if CheckListBox1.Checked[i] then    begin     Excel.Range['D' + IntToStr(j)].Value:=      (FindComponent('SpinEdit' + IntToStr(i)) as TSpinEdit).Value;     Inc(j);    end; end;