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

28/01/2013

1

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.
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
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira