[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

Código Delphi [-]
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;