exportar linhas dbmemo para excel em linhas separadas..

Question

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 · Answer

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;

Gigatel · Answer

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;

F�rum exportar linhas dbmemo para excel em linhas separadas.. #345099