Здравствуйте!
Прошу помощи, подсказки!
Имеется 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;
вообще не заполняет ( или просто не отображает , непонятно..)
кто, что думает?