exportacao excel
boa tarde, gostaria de saber como posso gerar a exportacao para excel mas com a seguinte condição, gerar um arquivo em excel e dentro deste arquivo conter pasta do tipo total da empresa A, total da empresa B, e assim por diante.
a exportacao pra excel isso ja consigo fazer, porem agora meu cliente necessita do conteudo separado por empresa em uma mesmo arquivo de excel
a exportacao pra excel isso ja consigo fazer, porem agora meu cliente necessita do conteudo separado por empresa em uma mesmo arquivo de excel
Ricardo
Curtidas 0
Respostas
Arthur Heinrich
28/11/2022
var
X, B, S : Variant;
begin
X:=CreateOleObject('Excel.Application');
X.visible:=true;
// Adicionar pasta
B:=X.WorkBooks.Add;
if (B.WorkSheets.Count=1)
then
begin
S:=B.WorkSheets[1];
S.Select;
S.Name:='Empresa A';
S.Cells[1,1]:='xxx';
S.Cells[1,2]:='yyy';
S.Columns['A:B'].AutoFit;
end;
// Acessar pasta existente
S:=B.WorkSheets.Item['Empresa B'];
S.Select;
S:=Unassigned;
try
B.SaveAs('c:\\temp\\file.xlsx');
except
end;
B:=Unassigned;
X:=Unassigned;
end;
X, B, S : Variant;
begin
X:=CreateOleObject('Excel.Application');
X.visible:=true;
// Adicionar pasta
B:=X.WorkBooks.Add;
if (B.WorkSheets.Count=1)
then
begin
S:=B.WorkSheets[1];
S.Select;
S.Name:='Empresa A';
S.Cells[1,1]:='xxx';
S.Cells[1,2]:='yyy';
S.Columns['A:B'].AutoFit;
end;
// Acessar pasta existente
S:=B.WorkSheets.Item['Empresa B'];
S.Select;
S:=Unassigned;
try
B.SaveAs('c:\\temp\\file.xlsx');
except
end;
B:=Unassigned;
X:=Unassigned;
end;
GOSTEI 0