Текущий архив: 2007.12.16;
Скачать: CL | DM;

Вниз

Edit в MSExcel   Найти похожие ветки 

← →
Angela   (2007-11-20 19:22) [0]

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

---

← →
Angelka   (2007-11-20 19:23) [1]

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

---

← →
AlexWlad ©   (2007-11-20 19:42) [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:54) [3]

AlexWlad ©

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

---

Страницы: 1 вся ветка

Текущий архив: 2007.12.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.016 c