Форум: "Начинающим";
Текущий архив: 2007.12.16;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.045 c