"Bugg" apparu dans le process d'exportation vers ExcelRésolu

Question

Bonjour!

Je suis buté à une situation d'exportation. Je voulais bien exporter un fichier vers Excel. Mais ça plante sur cette ligne:   planilha:= CreateoleObject('c:\depenses.xls');

var linha, coluna : integer;
planilha : variant;
valorcampo : string;
begin

planilha:= CreateoleObject('c:\depenses.xls');
planilha.WorkBooks.add(1);
planilha.caption := 'Exportando dados do dbGrid para o Excel';
planilha.visible := true;

ADOTable1.First;
for linha := 0 to ADOTable1.RecordCount - 1 do
begin
for coluna := 1 to ADOTable1.FieldCount do
begin
valorcampo := ADOTable1.Fields[coluna - 1].AsString;
planilha.cells[linha + 2,coluna] := valorCampo;
end;
ADOTable1.Next;
end;
for coluna := 1 to ADOTable1.FieldCount do
begin
valorcampo := ADOTable1.Fields[coluna - 1].DisplayLabel;
planilha.cells[1,coluna] := valorcampo;
end;
planilha.columns.Autofit;
end;

cs_walidlam · Accepted Answer

salut!!!
essayer 

implementation
    uses comobj;
{$R *.dfm}
//...


var linha, coluna : integer;
planilha ,planworkbook: variant;
begin
try
planilha:= CreateOleObject('Excel.Application');
planworkbook := planilha.Workbooks.Add;
planworkbook.Worksheets.Item['Feuil1'].Activate;
planilha.caption := 'Exportando dados do dbGrid para o Excel';
planilha.visible := false;
ADOTable1.First;
//ADOTable1.DisableControls;
for linha := 0 to ADOTable1.RecordCount - 1 do
begin
for coluna := 1 to ADOTable1.FieldCount do
begin
planilha.cells[linha + 2,coluna].formula :=  ADOTable1.Fields[coluna - 1].AsString;//valorCampo;
end;
ADOTable1.Next;
end;
for coluna := 1 to ADOTable1.FieldCount do
begin
planilha.cells[1,coluna] := ADOTable1.Fields[coluna - 1].DisplayLabel;//valorcampo;
end;
planilha.columns.Autofit;
planilha.ActiveWorkBook.SaveAs('c:\depenses.xls');
//ADOTable1.EnableControls;
planilha.visible := true;
except
planilha:=Unassigned;
// HandleException;
end;
@+

dubois77 · Answer

Dubois77
site persosalut
dans res Var du début,  tu déclares planhila comme variant, alors que tu l'utilises déja avant
c'est le local qui est pris en compte, donc pas bon.

divin1975 · Answer

ça marche toujours pas.
Personne n'a un truc de pareille qui fonctionne déjà.

Merci,
divin1975

divin1975 · Answer

@walidlam
C'est extraordinaire! ça marche en parfaite santé.

Merci,
divin1975

"Bugg" apparu dans le process d'exportation vers Excel

4 réponses

Votre réponse