FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Ancho de celdas al exportar a excel
Hola colegas, estoy exportando el contenido de un dbgrid obvio que esta
legado a un query, el detalle es que si exporta todas las columnas, pero toma por default una longuitud fija a las celdas, Agradezco mucho si me ilustran en como cambiar el tamaño o longuitud de las celdas en excel. este codigo lo tome de aqui (clubdelphi.com) y lo adapte a mi codigo with data.q1, data.Q1.SQL do begin Close; Open; if IsEmpty then begin MessageDlg('No existen datos que reportar!', mtWarning,[mbOk], 0); Exit; end; TRY excel := CreateOleObject('Excel.Application'); EXCEPT ShowMessage('Excel no se pudo iniciar.'); exit; END; excel.Visible := true; First; fila := 1; excel.Workbooks.Add; //Poner los títulos for columna := 0 to DbGrid1.Columns.Count-1 do excel.Cells[fila,columna + 1].Value := DbGrid1.Columns[columna].Title.Caption; fila:=3; //Desengachar controles para agilizar DisableControls; TRY while not(eof) do begin for columna := 0 to DbGrid1.Columns.Count-1 do excel.Cells[fila,columna + 1].Value := FieldByName(DbGrid1.Columns [columna].FieldName).asString; Next; inc(fila); end; EXCEPT ShowMessage('Atención, se produjo un error en la transmisión.'); END; EnableControls; end; muchas gracias por el tiempo , bye |
|
|
|