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

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;

[Casimiro Notevi]

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



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

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;

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

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