| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как кинуть данные в Excel? [D7, WinXP]

Leda ©   (2005-11-04 20:23:00) 

Подскажите пожалуйста, как кинуть данные в Excel, а затем вернуть уже готовый результат в форму Delphi.

---

YurikGL   (2005-11-07 12:22:00) [1]

Читаем статью "по волнам интеграции" на королевстве делфи

---

Explorer   (2005-11-05 19:10:00) [2]

что именно?

---

Polevi   (2005-11-05 16:04:00) [3]

бред

---

Explorer   (2005-11-05 09:56:00) [4]

Если я правильно понял вопрос, то что-то примерно такое:

procedure TForm1.Button1Click(Sender: TObject);
var
Excel:variant;
WBk,Rnge : OleVariant;
a_:integer;
d3:Variant;
begin
Excel:=CreateOleObject('Excel.Application');
WBk := Excel.WorkBooks.open('C:\2.xls');
a_:=2;
Excel.ActiveSheet.Cells[8, a_].Value := 'что-то пишем в ячейку';
d3:= Excel.ActiveSheet.Cells[8, a_].Value;
WBk.Close(SaveChanges := True);
Excel.Quit;
Edit3.Text := d3; //выводим данные из ячейки
end;

end.

---

Наверх