Hola, tengo el siguiente código para exportar datos a una planilla Excel, mi pregunta es cómo podría lograr que el ancho de las celdas de Excel quede autoajustado segun el texto que tengan?
Muchas Gracias!
Código Delphi
[-]procedure TFormPerfiles.Button3Click(Sender: TObject);
var
fila:integer;
begin
fila := 2;
ExcelApplication2.Connect;
ExcelApplication2.Visible[0] := True;
ExcelWorkbook2.ConnectTo(ExcelApplication2.Workbooks.Add(EmptyParam,0));
ExcelWorksheet2.ConnectTo(ExcelApplication2.Sheets[1] as _WorkSheet);
With ExcelWorksheet2.Cells do
begin
Item[1,1].Value :='Perfil';
Item[1,2].Value :='Modulo';
Item[1,3].Value :='Tarea';
end;
QueryRave.First;
While Not queryrave.Eof do
begin
With ExcelWorksheet2.Cells do
begin
Item[Fila,1].Value := Queryrave.FieldByName('desc_perfil').AsString;
Item[Fila,2].Value := Queryrave.FieldByName('desc_modulo').AsString;
Item[fila,3].value:= Queryrave.FieldByName('desc_tarea').AsString;
Inc(Fila);
Queryrave.Next;
end;
end; ExcelWorksheet2.Disconnect;
ExcelWorkbook2.Disconnect;
ExcelApplication2.Disconnect;
end;