”ajustar texto” a las celda de excel una vez exportado

[Neftali [Germán.Estévez]]

Pues ya lo tienes casi hecho.
En mi caso, el ejemplo que comentas, ya aparece abierto y sobre el resto de ventanas. Uso XP y D6.

En cuanto al ancho de columnas, como prueba, antes del TRY puedes colocar este código:

Código Delphi [-]
  // Anchos de columna
  rangoExcel := aplicacionExcel.Range['A1','A20'];
  rangoExcel.ColumnWidth := 5;
  rangoExcel := aplicacionExcel.Range['B1','B20'];
  rangoExcel.ColumnWidth := 10;
  rangoExcel := aplicacionExcel.Range['C1','C20'];
  rangoExcel.ColumnWidth := 15;
  rangoExcel := aplicacionExcel.Range['D1','D20'];
  rangoExcel.ColumnWidth := 20;
  rangoExcel := aplicacionExcel.Range['E1','E20'];
  rangoExcel.ColumnWidth := 25;
  rangoExcel := aplicacionExcel.Range['F1','F20'];
  rangoExcel.ColumnWidth := 40;

En fçacil, ahora puedes adaptarlo y colocarlo donde necesites.

[Rowerto]

No se si se refiere a esto pero:

- Para que solo se vea cuando acabes de hacer todo:

Código Delphi [-]
      
      coinitialize(nil);
      Excel         := CreateOleObject('Excel.Application');
      ExcelDoc      := Excel.Workbooks.Add;
      WS            := ExcelDoc.ActiveSheet;
      Excel.Visible := false;

  // aqui el procedimiento que quieras

      Excel.Visible := true;

- Para que se ajusten los tamaños de las celdas:

Código Delphi [-]
ws.cells.entirecolumn.autofit;