Selecionar tabela numa planilha Excel e colar esta tabela em uma outra posição

Delphi

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

Marcos Gandin

Curtidas 0

Respostas

Marcos Gandin

Marcos Gandin

28/01/2013

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;
GOSTEI 0
POSTAR