[Скальп_Куклы]

Всем привет!проблема вот какая...кто знает как с помощью делфи выбрать определеную строку в Excel и редактировать ,беря данные из Edit & comboBox........
Есть: Edit & ConboBox, данные с них я спокойно записываю в ячейки..НО!только те которые прописаны в коде....а мне хотелось бы переключаться между строчками....Помоги плиз..)

[freedomman]

когда то писал импорт из exsel в table, может поможет

Код:

var
  Excel:Variant;
  i:integer;
 XL: variant;
begin
  XL := CreateOleObject('Excel.Application');
       XL.DisplayAlerts := false;
    XL.WorkBooks.Add;
      XL.WorkBooks.Open(OpenDialog2.FileName);
  for i:=1 to n do
      begin
 ZTable1.Append;
   ZTable1.FieldByName('dens').AsVariant:=XL.Cells[i, 1].Value;
 ZTable1.FieldByName('speedhor').AsVariant:=XL.Cells[i, 2].Value;
   ZTable1.FieldByName('intensity').AsVariant:=XL.Cells[i, 3].Value;
   ZTable1.FieldByName('intensitydoor').AsVariant:=XL.Cells[i, 4].Value;
 ZTable1.Post;
end;

[M.A.D.M.A.N.]

Сообщение от freedomman

когда то писал импорт из exsel в table, может поможет

Код:

var
  Excel:Variant;
  i:integer;
 XL: variant;
begin
  XL := CreateOleObject('Excel.Application');
       XL.DisplayAlerts := false;
    XL.WorkBooks.Add;
      XL.WorkBooks.Open(OpenDialog2.FileName);
  for i:=1 to n do
      begin
 ZTable1.Append;
   ZTable1.FieldByName('dens').AsVariant:=XL.Cells[i, 1].Value;
 ZTable1.FieldByName('speedhor').AsVariant:=XL.Cells[i, 2].Value;
   ZTable1.FieldByName('intensity').AsVariant:=XL.Cells[i, 3].Value;
   ZTable1.FieldByName('intensitydoor').AsVariant:=XL.Cells[i, 4].Value;
 ZTable1.Post;
end;

Он у тебя берет только с первой страницы. И что за переменная n, нигде не объявленная?

[freedomman]

Сообщение от M.A.D.M.A.N.

Он у тебя берет только с первой страницы. И что за переменная n, нигде не объявленная?

может имелось ввиду не страницы, а лист excel- так можно указать и лист, а затем перейти к нужной ячейке по адресу или же осуществить поиск через find (ищите в ближайших топиках, только недавно обсуждалось ). Переменная n нужна для цикла, и никакого практического значения не имеет, кроме как количества передаваемых значений

[M.A.D.M.A.N.]

Пардон, да лист.

[Скальп_Куклы]

procedure XOpen;
begin
form1.Cursor:=crHourGlass;


xls := CreateOleObject('Excel.Application');
xls.Application.EnableEvents := true;
xls.Visible := true;
xls.DisplayAlerts := true;
xls.WorkBooks.Open(form1.label3.caption);
xls.WorkSheets[1].Activate;

form1.Cursor:=crdefault;
end;

procedure TForm1.Button2Click(Sender: TObject); // закрытие
begin
close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

ComboBox1.Visible := True;
ComboBox1.Items.Add('Daria Artemova');
ComboBox1.Items.Add('SEIC Supply');


end;

procedure TForm1.Button3Click(Sender: TObject); // открытие по нажатию кнопки
begin
if OpenDialog1.Execute then
begin
Label3.Caption:=OpenDialog1.FileName;

XOpen;


end;
end;

procedure TForm1.Button1Click(Sender: TObject); //добавление значений в ячейки
begin

xls.Range['A9']:=Edit1.Text;
xls.Range['C9']:=ComboBox1.Text;

end;

end.