компонент progressbar и экспорт в excel

[Hobbit_88]

Значит как сделать чтобы во время экспорта в excel, чтобы пользователь не видел как формируется страничка. Красовалась форма с progressbar и шла загрузка. Может кто сталкивался с подобным подскажите или еще скиньте исходник если есть. плиз.

[Minotavr_x86]

Я себе представляю это примерно так
1.Visable в true после формирования отчета
2.Если мне не изменяет память у тебя отчет формирорвался в цикле. Ну так вот рачитываешь количество шагов и сообщаешь progressbar'у сколько уже прошло.

[Hobbit_88]

а у кого-нибудь исходник есть, а то самому долго разбираться

[vario_rus]

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

а у кого-нибудь исходник есть, а то самому долго разбираться

pb1.Min:= номер первой строки;
pb1.Max:=номер последней строки;
pb1.Position:=0;

и там где переход на следующую строку добавь

pb1.StepBy(1);

[Hobbit_88]

Еще люди подскажите. Как можно сделать, чтобы первые два поля не экспортировались в excel, а экспорт шел с 3 поля.

[ArtInt]

Начинать экспорт с 3 поля. Имеется в виду поля таблицы или что то другое. Экспорт через цикл? Кусочек кода поможет лучше разобраться в чем проблема.

[Hobbit_88]

procedure TForm5.SpeedButton3Click(Sender: TObject);
var
ExcelApp : variant;
row :integer;
col:integer;
begin
progressbar1.Visible:=true;
RZLabel1.Visible:=true;
dbgrid1.DataSource.DataSet.First;
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.workbooks.open(ExtractFilePath(ParamStr(0))+'OtchetPokyp.xls');
ExcelApp.Visible := false;
ExcelApp.WorkBooks[1].WorkSheets[1].Name := 'Отчет1';
ProgressBar1.Max := DBGrid1.DataSource.DataSet.RecordCount-1;
ProgressBar1.Position := 0;
ProgressBar1.Step := 1;
for row :=0 to DBGrid1.DataSource.DataSet.RecordCount-1 do
begin
for col :=0 to DBGrid1.Columns.Count-1 do
begin
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+7,col+2].value:=dbgrid1.DataSource.DataSet.Fields[col].AsString;
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+7,1]:=row+1;
end;
ProgressBar1.StepIt;
Application.ProcessMessages;
DBGrid1.DataSource.DataSet.Next;
ExcelApp.Range[excelapp.cells[7,1],excelapp.cells[7+DBGrid1.DataSource.DataSet.RecordCount-1,9]].select;
ExcelApp.Selection.Borders.LineStyle:= xlContinuous;
end;
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+8,col-6].value:='м.п.';
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+8,col].value:='Подпись';
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+8,col+1].value:='_________';
ExcelApp.Visible := True;
RZLabel1.Visible:=false;
progressbar1.Visible:=false;
end;

[Hobbit_88]

Вот код который отправил, он экспортирует все, что есть в dbgrid, а мне надо начиная с третьего поля

[ArtInt]

Если смотреть по логике то надо изменять начальные значения row или col

for row :=0 to DBGrid1.DataSource.DataSet.RecordCount-1 do
begin
for col :=0 to DBGrid1.Columns.Count-1 do

Так вот если под полем подразумевается колонка в DBGrid, то col:=2 Если имеется ввиду запись (по количеству записей в сетке ) то row:=2

Следует учитывать что в данном случае обращение происходит к сетке(DbGrid), поэтому информация будет заносится только из полей сетки, а не из полей таблицы базы данных.

[Hobbit_88]

Спасибо за помощь. Но я все таки сам разобрался. Решил обращаться к adotable, а не как ранне к dbgrid, и оттуда по по одному полю экспортировать данные.

procedure TForm1.BitBtn14Click(Sender: TObject);
var
ExcelApp, sheet, colum : variant;
row, index, i :integer;
col:integer;
begin
dbgrid5.DataSource.DataSet.First;
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.workbooks.open(ExtractFilePath(ParamStr(0))+'Prihod_tovara.xls');
ExcelApp.Visible := false;
ExcelApp.WorkBooks[1].WorkSheets[1].Name := 'Отчет';
for row :=0 to DataModule2.Postavka.RecordCount-1 do
begin
for col :=0 to DataModule2.Postavka.RecordCount-1 do
begin
ExcelApp.WorkBooks[1].WorkSheets[1].cells[2,3].value:=DataModule2.Delivery.Fields.Fields[3].AsString;
ExcelApp.WorkBooks[1].WorkSheets[1].cells[1,3].value:=DataModule2.Postavka.Fields.Fields[1].AsString;
ExcelApp.WorkBooks[1].WorkSheets[1].cells[5,4].value:=DataModule2.Postavka.Fields.Fields[0].AsString;
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+9,2].value:=DataModule2.Postavka.Fields.Fields[2].AsString;
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+9,3].value:=DataModule2.Postavka.Fields.Fields[3].AsString;
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+9,4].value:=DataModule2.Postavka.Fields.Fields[4].AsString;
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+9,5].value:=DataModule2.Postavka.Fields.Fields[5].AsString;
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+9,6].value:=DataModule2.Postavka.Fields.Fields[6].AsString;
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+9,7].value:=DataModule2.Postavka.Fields.Fields[7].AsString;
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+9,1]:=row+1;
end;
Application.ProcessMessages;
DataModule2.Postavka.Next;
ExcelApp.Range[excelapp.cells[9,1],excelapp.cells[9+DataModule2.Postavka.RecordCount-1,7]].select;
ExcelApp.Selection.Borders.LineStyle:= xlContinuous;
end;
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+10,2].value:='Принято ценностей на сумму:';
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+11,1].value:='______________________________________________________________________________';
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+12,3].value:='прописью';
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+13,2].value:='Принял';
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+13,3].value:='___________________';
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+13,5].value:='Сдал';
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+13,6].value:='___________________';
ExcelApp.Visible := True;
end;