F�rum Selecionar tabela numa planilha Excel e colar esta tabela em uma outra posi��o #433489

28/01/2013

Pessoal...

Eu tenho uma planilha Excel aonde existe uma tabela com algumas linhas e colunas j� formatado.
O que eu preciso � selecionar toda esta tabela e colar algumas posi��es abaixo do que ela j� se encontra.
Gostaria de saber como eu fa�o isso via programa��o.
Utilizo Delphi XE2.

Marcos Gandin

Curtir t�pico

+ 0

Responder

Posts

30/01/2013

Marcos Gandin

J� consegui fazer o que eu queria.
Vai a� o c�digo que utilizei para selecionar uma tabela numa planilha Excel e colar em outra posi��o.

procedure TTaskManager.CopiarPlanilha(ALinhas:Integer);
var
  iLinhaExcel, iColunaExcel, QtdLinhas : Integer;
  objExcel, xlw, xlobjExcel, excelSheet : Variant;
begin
  objExcel := CreateOleObject('Excel.Application');
  xlobjExcel := 00000006;
  objExcel.DisplayAlerts := False;
  xlw := objExcel.WorkBooks.Open('C:\Planilha.xlsx');

  for iLinhaExcel := 5 to 20 do
    for iColunaExcel := 2 to 26 do
    begin
      objExcel.Cells[iLinhaExcel,iColunaExcel].Select;
      objExcel.Selection.Copy;
      objExcel.Cells[iLinhaExcel+ALinhas,iColunaExcel].PasteSpecial;
    end;

  xlw.SaveAs('C:\Planilha.xlsx');
  xlw.Close;
  xlw := UnAssigned;
  objExcel.Quit;
  objExcel := Unassigned;
end;

Responder

Gostei + 0