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

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

Edit в MSExcel

Angela ©   (2007-11-20 19:22:00) 

А как сделать чтобы из компонента Edit даные заносились в MSExcel в определенные ячейки?

---

Angelka   (2007-11-20 19:54:00) [1]

AlexWlad ©

Спасибо большое!

---

AlexWlad   (2007-11-20 19:42:00) [2]


var
  WorkSheet : Variant;
  i,j:integer ;
  Excel : Variant;
  s : String;
begin
    if F_FindPPM.ShowModal = mrOK then
    begin
         Excel := CreateOleObject('Excel.Application');
         Excel.Visible := false;
         Excel.Workbooks.Open('1.xlt');
         WorkSheet := Excel.Workbooks[1].WorkSheets[1];

         PrBar.Visible := True;
         PrBar.Max     := DM_PPM_Mon.Q_FindPPM.RecordCount;
         DM_PPM_Mon.Q_FindPPM.First;
         i := 0;
         while not DM_PPM_Mon.Q_FindPPM.Eof do
         begin
              Inc(i);
              PrBar.Position := i;
              Application.ProcessMessages;
              for j:=1 to 26 do
                  WorkSheet.Cells[i+3,j].Borders.LineStyle:=1;
              WorkSheet.Cells[i+3,1] := i;
              WorkSheet.Cells[i+3,2] := Copy(DM_PPM_Mon.Q_FindPPMNameDoc.AsString,5,50);
              WorkSheet.Cells[i+3,3] := DM_PPM_Mon.Q_FindPPMSite.AsString;
              DM_PPM_Mon.Q_FindPPM.Next;
         end;
         PrBar.Visible := False;
         Excel.Visible := true;
    end;


---

Angelka   (2007-11-20 19:23:00) [3]

Заранее примного благодарна

---

Наверх