Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Вниз

Помогите с переносом данных из DBGrid в Excel :(( 


Chainik   (2002-03-14 14:41) [0]

Есть DBGrid и одна кнопель. Как отправить данные в Excel2000
при нажатии кнопели? Читал доки, но ничего не понял.Подскажите пожайлуста.



OlegE   (2002-03-14 14:52) [1]

Я использую TdxDBGrid, там такое есть:

Exports grid nodes (rows) to a Microsoft Excel(r) file.

procedure SaveToXLS(const AFileName : String; ASaveAll: Boolean);

Description
Exports grid nodes to a Microsoft Excel(r) file, specified by AFileName. If ASaveAll is True, SaveToXLS saves all nodes to an xls file. Otherwise, it saves only selected nodes. If a grid does not include selected nodes, SaveToXLS saves all nodes.

procedure TfmMain.Button1Click(Sender: TObject);
begin
dxDBGrid.SaveToXLS("xlsfile.xls", False);
end;



clarin   (2002-03-19 15:07) [2]

вот опробуй след код...работает
procedure TProsmForma.btImportClick(Sender: TObject);
var
z:boolean;
I,J:integer;
S:string;
begin
ProsmForma.DataSource1.DataSet:=nil;
FV:=CreateOleObject("Excel.Application");
FV.Visible:=True;
FV.Workbooks.Add;
Table.First;
z:=True;
while z=True do
begin
ShowMessage(" Ждите сообщения об окончании копирования... А пока - данные копируется в Excel...");
I:=1;
for J:=0 to Table.Fields.Count-1 do begin
S:=Table.Fields[J].FieldName;
FV.Workbooks[1].Worksheets[1].Cells[I,J+1].Value:=S;
FV.Workbooks[1].Worksheets[1].Cells[I,J+1].
Interior.Color:=clSilver;
end;
while not Table.EOF do begin
Inc(I);
for J:=0 to Table.Fields.Count-1 do begin
S:=Table.Fields[J].AsString;
FV.Workbooks[1].Worksheets[1].Cells[I,J+1].Value:=S;
FV.Workbooks[1].Worksheets[1].Cells[I,J+1].
Font.Color:=clBlack;
end;
Table.Next;
end;
z:=False;
end;
Table.First;
DBGrHelpLit.visible:=False;
rec:=Table.FieldbyName("Rec").AsString;
DBGrHelpLit.visible:=True;
DataSource1.DataSet:=Table;
MessageDlg(" Данные в Excel скопированы !!! На панели задач можете найти свернутое приложение Excel ", mtInformation,[mbOk],0);
end;




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.041 c
4-33030           MJH                   2002-02-04 11:29  2002.04.11  
COMBOBOX


14-32973          limon                 2002-03-05 11:19  2002.04.11  
Создание экземпляра класса по имени (ClassRef)


14-32967          limon                 2002-03-03 22:03  2002.04.11  
Числа Фибоначчи как основа компьютерной логики


14-32951          Пользователь          2002-03-04 09:53  2002.04.11  
PHP & Interbase


1-32840           snoup                 2002-03-29 08:38  2002.04.11  
Посоветуйте и скажите где можно скачать компонент для работы с ин