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;
adodataset1.GetFieldNames(Memo1.Lines);
n:=adodataset1.FieldCount;
For i:=0 to n do
stringGrid1.Cells[i+1,0]:=memo1.Lines[i];
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;
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;