problema al importar datos de exel

[Juan Quintana]

Hola a todos:

Estoy importado datos de una hoja de excel a un stringGrid, pero los datos de la columna C, que esta definida como numerica, no aparecen el el Grid; ya le cambie el formato a texto y siguen sin aparecer.

Busque informacion en el foro y encontrea que antes de abrir la hoja de excel, le cambie el formato; ya lo hice y siguen sin aparecer los datos.

La unica forma en que aparecieron los datos es que tuve que poner un 0 en las celdas vacias que habia en la columna, pero esto es muy tedioso, hay alguna forma de que se pueda resolver sin hacer esto.

Gracias de antemano

Codigo que uso para pasar al grid la informacion

procedure TForm1.Button1Click(Sender: TObject);
var
n,i,r: integer;
begin
adoDataSet1.Open;
// nombres de los campos
adodataset1.GetFieldNames(Memo1.Lines);
// numero de columnas
n:=adodataset1.FieldCount;
// nombres de las columnas al GRID
For i:=0 to n do
stringGrid1.Cells[i+1,0]:=memo1.Lines[i];
// datos de las columnas del excel al GRID
r:=0;
while not AdoDataSet1.EoF do
begin
r:=r+1;
For i:=0 to n-1 do
StringGrid1.Cells[i+1,r]:=String(AdoDataSet1.Fields[i].asString);
adoDataSet1.Next;
end;
adodataset1.Close;
end;


// antes de abrir el excel de cambio de formato a la columna C
procedure TForm1.ADODataSet1BeforeOpen(DataSet: TDataSet);
var
Excel, Libro, Hoja: OleVariant;
begin
Excel := ComObj.CreateOleObject('Excel.Application');
try
Libro := Excel.Workbooks.Open('c:\fhe2012\Cheques expedidos.xls');
Hoja := Libro.Worksheets['Cheques'];
Hoja.Columns['C:C'].NumberFormat := '@';
Libro.Save;
finally
Excel.Quit;
end;
end;

[Casimiro Notevi]

Recuerda poner los tags al código fuente, ejemplo:

http://neftali.clubdelphi.com/images/UtilizarTAGs.png

Gracias :)

[Juan Quintana]

Casimiro.... estoy apenas aprendiendo a usar el foro.... con el ejemplo que me mandaste seleccione el codigo y le puse el tag de delphi, te lo vuelvo a enviar, espero que ahora si cumpla con lo estipulado.
la primera parte es codigo delphi que uso para copiar los datos del excel a stringgrid

procedure TForm1.Button1Click(Sender: TObject);
var
n,i,r: integer;
begin
adoDataSet1.Open;
// nombres de los campos
adodataset1.GetFieldNames(Memo1.Lines);
// numero de columnas
n:=adodataset1.FieldCount;
// nombres de las columnas al GRID
For i:=0 to n do
stringGrid1.Cells[i+1,0]:=memo1.Lines[i];
// datos de las columnas del excel al GRID
r:=0;
while not AdoDataSet1.EoF do
begin
r:=r+1;
For i:=0 to n-1 do
StringGrid1.Cells[i+1,r]:=String(AdoDataSet1.Fields[i].asString);
adoDataSet1.Next;
end;
adodataset1.Close;
end;

esta segunda parte es el codigo que uso antes de abrir la hoja de excel

procedure TForm1.ADODataSet1BeforeOpen(DataSet: TDataSet);
var
Excel, Libro, Hoja: OleVariant;
begin
Excel := ComObj.CreateOleObject('Excel.Application');
try
Libro := Excel.Workbooks.Open('c:\fhe2012\Cheques expedidos.xls');
Hoja := Libro.Worksheets['Cheques'];
Hoja.Columns['C:C'].NumberFormat := '@';
Libro.Save;
finally
Excel.Quit;
end;
end;

pero me siguen sin aparecer los datos en el Grid

[Casimiro Notevi]

Hola, ya sé que eres novato aquí, por eso te indiqué la forma de poner los 'tags' al código. No hacía falta que lo repitieras, ya había editado yo tu mensaje para "dejarlo bonito" :)