[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