PDA

Visualizza la versione completa : [DELPHI] export in excel


ttttttttttttttt
28-01-2008, 17:27
Ciao,

io avrei la necessità di esportare in excel dei dati presi da 2 query, per esportare in excel da delphi uso il componente TSCEXCEL, questo è il codice che uso per esportare

scExcelExport1.ExcelVisible:=True;
try
scExcelExport1.Dataset:=Table1;
scExcelExport1.WorksheetName:='1';
scExcelExport1.ConnectTo := ctNewExcel;
scExcelExport1.ExportDataset;
scExcelExport1.Disconnect;
scExcelExport1.Dataset:=Table2;
scExcelExport1.WorksheetName:='2';
scExcelExport1.ConnectTo := ctNewWorkbook;
scExcelExport1.ExportDataset;
scExcelExport1.Disconnect;
scExcelExport1.Dataset:=Table3;
scExcelExport1.WorksheetName:='3';
scExcelExport1.ConnectTo := ctNewWorksheet;
scExcelExport1.ExportDataset;
finally
scExcelExport1.Disconnect;
end;

questo codice però mi esporta i Dataset Table1 e Table2 in 2 file diversi, a me servirebbe avere un solo file e 2 worksheet ...qualcuno sa come sia fa?

ho provato così ma mi apre 2 file separati!

StructForm_ExcelExp_1.ExcelVisible := True;

try
StructForm_ExcelExp_1.LoadDefaultProperties;
StructForm_ExcelExp_1.Dataset := AQuery;
StructForm_ExcelExp_1.WorksheetName := 'Dettagli Equipaggiamento';
StructForm_ExcelExp_1.StyleColumnWidth := cwAutoFit;
StructForm_ExcelExp_1.ExportDataset;
StructForm_ExcelExp_1.Disconnect;

StructForm_ExcelExp_1.Dataset := BQuery;
StructForm_ExcelExp_1.WorksheetName := 'Dettagli Equipaggiamento2';
StructForm_ExcelExp_1.StyleColumnWidth := cwAutoFit;
StructForm_ExcelExp_1.ExportDataset;
StructForm_ExcelExp_1.Disconnect;
finally
StructForm_ExcelExp_1.Disconnect;
end;
AQuery.Free;

Loading