Ancho de celdas al exportar a excel

[Pascual Montes]

listo muchas gracias con eso solucione todo

mminor referente a lo que me preguntas de como hacer a la inversa
de exportar de excel hacia delphi, se me ocurre algo sencillo
a groso modo.

1. en excel exportas el contenido de tus celdas a formato ascii (texto)
en un formato predeterminado

2. en delphi lees ese archivo que generas en ascii , leyendo por bloques
es decir por pedasos obvio que cada bloke seria un campo de tu tabla
delphi o de una array o de variables de memoria o de lo que sea.

3. pasas el contenido que leiste a una tabla o el medio que necesites.
y lo guardas y/o manipulas a tu antojo.

ejemplo
en excel generas un archivo ascii con un formato parecido a esto

01 juan lopez 6850154
02 miria prado 5874522.
03 casimiro v 6855441

04 jose cota 552414
esto es un archivo ascci delimitado por espacio es decir que despues del
espacio empieza otro campo como aqui que contiene
primero un numero consecutivo, luego el nombre y por ultimo el numero de telefono.

despues en delphi lees este archivo texto de la manera siguiente.

procedure xxxxxxxxxxxx;

var
txt: textfile;
caracter: char;
cadena:string;
x:integer;

begin
assingfile(txt, 'c:\mis archivos\reporteexcel.txt');
reset(txt);
cadena:='';

for x:=1 to length(txt) do begin // hasta el tamaño del archivo ascii
//verifica no recuerdo si asi se optiene el tamaño del archivo texto .

do while caracter <> #32 do begin //mientras caracter leido no igual espacio
//verifica se puede comparar caracter <> #32 o caracter <> ' '
readln(txt, caracter); //lee siguente caracter del archivo ascii
cadena:=cadena+caracter; //acumula caracteres
end;
//aqui ya leyo el contenido de un campo completo ahora lo pasamos a
un campo de una tabla

tabla1campox.value:=cadena; //copiar valor campo a tabla
end; // fin del ciclo for

end;

Espero te sirva esto colega
cualquier cosa estamos en contacto en msn
[email protected]