[Lenovo]

Здравствуйте! Подскажите пожалуйста по такой вот беде! Есть кнопка для загрузки файла Excel Т.е нажимаю на кнопку, открывается обзор файлов - выбираю файл excel с шаблоном информации и вся информация загружается в таблицу БД, т.е в DBGrid!
Сталкивался с ситуацией наоборот! Делал вывод информации с таблицы (DBGrid) в Excel, вот собственно код:

Код:

procedure TForm6.BitBtn1Click(Sender: TObject);
var XLApp,Sheet,Colum:Variant;
index:Integer;
begin
index:=0;
XLApp:= CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';
Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;
Colum.Columns[1].ColumnWidth:=22;
Colum.Columns[2].ColumnWidth:=14;
Colum.Columns[3].ColumnWidth:=9;
Colum.Columns[4].ColumnWidth:=8;
Colum.Columns[5].ColumnWidth:=10;
Colum.Columns[6].ColumnWidth:=22;
Colum.Columns[7].ColumnWidth:=14;
Colum.Columns[8].ColumnWidth:=15;
Colum.Columns[9].ColumnWidth:=8;
Colum.Columns[10].ColumnWidth:=18;
Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[5].Font.Bold:=true;
Colum.Columns[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clred;
Colum.Rows[1].Font.Size:=18;
Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];
index:=6;
Sheet.Cells[1,4]:='Отчёт о приёме товара';
Sheet.Cells[5,1]:='Наименование товара';
Sheet.Cells[5,2]:='Фирма товара';
Sheet.Cells[5,3]:='Артикул';
Sheet.Cells[5,4]:='Размер';
Sheet.Cells[5,5]:='Цвет';
Sheet.Cells[5,6]:='Страна производителя';
Sheet.Cells[5,7]:='Цена покупки';
Sheet.Cells[5,8]:='Цена продажи';
Sheet.Cells[5,9]:='Кол-во';
Sheet.Cells[5,10]:='Дата поступления';
while not DataModule1.Otchet_o_prieme.Eof do
begin
Sheet.Cells[index,1]:=DataModule1.Otchet_o_prieme.FieldByName('Naimenovanie_tovara').AsString;
Sheet.Cells[index,2]:=DataModule1.Otchet_o_prieme.FieldByName('Firma_tovara').AsString;
Sheet.Cells[index,3]:=DataModule1.Otchet_o_prieme.FieldByName('Artikyl').AsString;
Sheet.Cells[index,4]:=DataModule1.Otchet_o_prieme.FieldByName('Razmer').AsString;
Sheet.Cells[index,5]:=DataModule1.Otchet_o_prieme.FieldByName('Cvet').AsString;
Sheet.Cells[index,6]:=DataModule1.Otchet_o_prieme.FieldByName('Strana_proizvoditelya').AsString;
Sheet.Cells[index,7]:=DataModule1.Otchet_o_prieme.FieldByName('Cena_pokypki').AsString;
Sheet.Cells[index,8]:=DataModule1.Otchet_o_prieme.FieldByName('Cena_prodazhi').AsString;
Sheet.Cells[index,9]:=DataModule1.Otchet_o_prieme.FieldByName('Kol').AsString;
Sheet.Cells[index,10]:=DataModule1.Otchet_o_prieme.FieldByName('Data_postypleniya').AsString;
DataModule1.Otchet_o_prieme.Next;
index:=index+1;
end;
XLApp.range['A1:H500'].horizontalalignment:=-4108;
end;

Заранее спасибо за помощь!

[Lenovo]

Ребят подскажите, очень надо..

[Ildar-tsr]

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

Ребят подскажите, очень надо..

Ну что тебе именно надо в БД записать записи Excel'я, или просто в гриде отобразить?

[Lenovo]

Сообщение от Ildar-tsr

Ну что тебе именно надо в БД записать записи Excel'я, или просто в гриде отобразить?

Записи которые в екселе чтобы загрузились в DBGrid ну и естественно сохранились..либо кнопку я сделаю для сохранения! Это не важно уже!
Самое главное чтобы записи загружались в грид и отображались!

[Lenovo]

Ребят это невозможно? Поджимает просто ( Может я нереальное прошу

[lmikle]

Да все возможно.
Делать надо примерно так же, как экспорт, только в обратную сторону.
Т.е. создаешь запись в источнике данных и пишешь в нее данные из экселя. Ну а в DBGrid она автоматом появится

[Lenovo]

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

Да все возможно.
Делать надо примерно так же, как экспорт, только в обратную сторону.
Т.е. создаешь запись в источнике данных и пишешь в нее данные из экселя. Ну а в DBGrid она автоматом появится

Угу, особенно когда чайник в этом деле
Хотелось бы конкретики, кодов и т.д)
Спасибо)

[lmikle]

Ну что сложного-то...

Код:

... // Открываем датасет, эксель, циклы...
DataModule1.Otchet_o_prieme.Append;
DataModule1.Otchet_o_prieme.FieldByName('Naimenovanie_tovara').AsString := Sheet.Cells[index,1];
...
DataModule1.Otchet_o_prieme.Post;
...// и поехали дальше, пока не вставим всю таблицу...