Fórum Colocar Nomes nos sheets do EXCEL #174495

procedure TForm1.BitBtn2Click(Sender: TObject);
var
i,j,k,Linhas,Colunas:Integer;
Excel:Variant;
begin
Linhas := 2;
Colunas := 2;
if Edit2.Text <> ´´ then
Linhas := StrToInt(Edit2.text);
if Edit3.Text <> ´´ then
Colunas := StrToInt(Edit3.text);
Excel := CreateOleObject(´Excel.Application´);
Excel.Visible :=True;
Excel.Workbooks.Add;
Excel.WorkBooks[1].Sheets.Add;
[color=red:3a3e866221][i:3a3e866221][b:3a3e866221]Excel.WorkBooks[1].Sheets[1].Name := ´Teste´;[/b:3a3e866221][/i:3a3e866221][/color:3a3e866221]
{(Excel.WorkBooks.Open(´Gerar.xls´);}
for k := 1 to Excel.WorkBooks[1].Sheets.Count do
begin
for i := 1 to Colunas do
Excel.WorkBooks[1].Sheets[k].Cells[1,i]:=´Coluna ´+IntToStr(i);
Linhas := Linhas + 1;
for j := 2 to Linhas do
for i := 1 to Colunas do
Excel.WorkBooks[1].Sheets[k].Cells[j,i]:= ´Linha ´+IntToStr(j);
end;
Excel.WorkBooks[1].Sheets[´Teste´].Cells[9,1] := ´Teste´;
Excel.WorkBooks[1].SaveAs(´Controle.xls´);
if MessageDlg(´Deseja fechar o Excel?´,mtConfirmation,[mbYes,mbNo],0) = mrYes then
Excel.Quit;
end;