Sheets no Excel...

Delphi

07/02/2006

Pessoal como alterar entre os Sheets (Abas) das planilhas do Excel, consigo inserir dados apenas utilizando a primeira planilha, quando tento uma segunda gera uma exceção:
var
  Planilha: OleVariant;
begin
  Excel.Workbooks.Add(Null, 0);
  Planilha := Excel.Workbooks[1].Worksheets[1];
  Planilha.Cells[1,1].Value := ´Isso dá certo´;
  Planilha := Excel.Workbooks[1].Worksheets[2];
  Planilha.Cells[1,1].Value := ´Isso dá erro´;
end;



Bruno Belchior

Bruno Belchior

Curtidas 0

Respostas

Adalberto

Adalberto

07/02/2006

Para mudar de planilha, veja o exemplo do código abaixo:

Excel := CreateOLeObject(´Excel.Application´);

// o Excel é inicializado sem nehuma planilha aberta

Excel.Visible := True;

// A linha seguinte adiciona um Workbook com três planilhas (Plan1, Plan2 e Plan3)

Excel.Workbooks.Add;

// A linha seguinte ativa a planilha cuja nome (escrito na aba) é ´Plan3´

Excel.Worksheets[´Plan3´].Activate;

blz ?


GOSTEI 0
POSTAR