Executar comandos do excel no delphi

Question

Preciso ler uma planilha do excel e antes de processar, tenho q ordenar uma coluna, j� criei uma macro no excel ordenando e abri o c�digo da mesma no vb do excel, peguei o c�digo mais n�o consigo implementar no delphi. Se algu�m souber alguma coisa sobre isso ou parecido e puder me passar.....agrade�o.....

Marcos

Lucas Silva · Answer

Esse codigo � p/ exportar p/ o excell... acho que pode te ajudar....

uses ComObj;
.
.
.
procedure TForm1.Button1Click(Sender: TObject);
var excel: variant;
begin

      excel := CreateOleObject(�Excel.Application�);
      excel.Workbooks.add(1);
      excel.Cells.Select;
      excel.Selection.NumberFormat := �@�;


      excel.cells[1,1] := �Teste�;
      excel.columns.AutoFit;
      excel.cells[1,1].Select;
      excel.visible := true;

end;

Dallagnelo · Answer

Abaixo o c�digo gerado pela macro para ordenar uma coluna no excel.

Selection.Sort Key1:=Range(�A1�), Order1:=xlAscending,
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

N�o consigo implementar isso no delphi

Marcos

Lucas Silva · Answer

Tenta isso......[code:1:ad23930a5f]var excel: variant; begin       excel := CreateOleObject(�Excel.Application�);       excel.Selection.Sort Key1:=Range("A1");         excel.Order1:=xlAscending;       excel.Header:=xlGuess;       excel.OrderCustom:=1;             excel.MatchCase:=False;       excel.Orientation:=xlTopToBottom end;[/code:1:ad23930a5f]...

Dallagnelo · Answer

N�o funciona assim...... Imagino eu que o Selection.Sort � uma procedure e o resto s�o parametros......... mais n�o consigo funcionar.....

Sobre a primeira resposta q voc� me encaminhou, o que faz esses dois comandos (Cells.Select e columns.AutoFit)?

desde j� agrade�o....

Marcos

Lucas Silva · Answer

[quote:0b1b684c7f=�dallagnelo�]Sobre a primeira resposta q voc� me encaminhou, o que faz esses dois comandos (Cells.Select e columns.AutoFit)?[/quote:0b1b684c7f][b:0b1b684c7f]Cells.Select [/b:0b1b684c7f]- > seleciona as celulas que foram alteradas com algum valor.[b:0b1b684c7f]columns.AutoFit[/b:0b1b684c7f] -> deixa a coluna do tamanho da maior string que estiver nela.......

F�rum Executar comandos do excel no delphi #215456