exportar linhas dbmemo para excel em linhas separadas..

Delphi

27/08/2007

oi blz ? olha estou com informações gravado em um dbmemo e gostaria de se saber se tem como exporta estas mesma informações para excell, exemplo tenho este segmento no registro dbmemo.

Gato
Cachorro
Galinha

Gostaria que este seguimento foi igual pra o excell em linha separadas..será que tem jeito ?


Gigatel

Gigatel

Curtidas 0

Respostas

Gigatel

Gigatel

27/08/2007

conseguí este código más só exporta alinha que desejo, fiz um contador e coloquei de forma que ele e fizesse com que o excel repetisse o numero de lnha correspodente aos dados más não dá..se alguém tiver uma idéia.
procedure TForm1.Button4Click(Sender: TObject);
var
    excel: Variant;
    x: Integer;
    arquivo: string;
    contar:integer;
begin
arquivo:=´c:\MDMI.xls´;
Excel:=CreateOleObject(´Excel.Application´);
Excel.Visible:=False;
Excel.DisplayAlerts:=False;
Excel.Workbooks.Add;
Excel.Workbooks[1].Sheets.Add;
Excel.Workbooks[1].WorkSheets[1].Name:= IBQuery1NOME.Value;
Excel.Workbooks[1].WorkSheets[1].DisplayPageBreaks:=False;
Excel.Columns.AutoFit;
contar := DBMemo1.Lines.Count;
for x:=1 to contar do
    begin
    excel.WorkBooks[1].Sheets[1].Cells[x,1]:= dbmemo1.Lines[1];
    end;
Excel.WorkBooks[1].Sheets[1].SaveAs(arquivo);
Excel.WorkBooks.Open(arquivo);
Excel.Visible:=True;



GOSTEI 0
Gigatel

Gigatel

27/08/2007

Consegui exportar os dados para o exel , más exporta em colunas eu queria em linhas.olha código
procedure TForm1.Button4Click(Sender: TObject);
var
    excel: Variant;
    arquivo: string;
    linha,i :integer;
begin
arquivo:=´c:\MDMI.xls´;
Excel:=CreateOleObject(´Excel.Application´);
Excel.Visible:=False;
Excel.DisplayAlerts:=False;
Excel.Workbooks.Add;
Excel.Workbooks[1].Sheets.Add;
Excel.Workbooks[1].WorkSheets[1].Name:= IBQuery1NOME.Value;
Excel.Workbooks[1].WorkSheets[1].DisplayPageBreaks:=False;
Excel.Columns.AutoFit;

Linha := 1;
for i := 0 to DBMemo1.Lines.Count - 1 do
Excel.WorkBooks[1].Sheets[1].Cells[Linha,i+1] := DBMemo1.Lines[i];
Linha := 2;
Linha:=Linha+1;

Excel.WorkBooks[1].Sheets[1].SaveAs(arquivo);
Excel.WorkBooks.Open(arquivo);
Excel.Visible:=True;
end;



GOSTEI 0
POSTAR