excelden dbgride bilgi aktarma

[ekin]

exceldeki bilgileri dbgrid içine nasıl aktarabilirim. tam tersi olarak; dbgrid içindeki bilgileri excele nasıl aktarabilirim

[gkimirti]

dbgride direk aktarma diye bir sey sozkunusu degildir, siz dbgridin baglı oldugu datasete yazarsınız o da datasource aracılıgı ile dbgridde gosterir.
asagıya bir text dosyaya excel dosyasındaki hucrelerin bir kısmının nasıl aktarıldıgını gosteren bir kod ekliyorum.
bundan yola cıkarak sonunuzu cozmeniz lazım..

Kod: Tümünü seç

procedure TFrmMain.Button1Click(Sender: TObject);
var
  excel: Variant;
  liste: TStringList;
  i: Integer;
begin
  if OpenDialog1.Execute then
  begin
    Excel := CreateOleObject('Excel.Application');
    liste := TStringList.Create;
    try
      Excel.Workbooks.Open[OpenDialog1.FileName];
      i:=1;
      while Excel.Cells[i,1].Value<>'' do
      begin
        liste.Add(Excel.Cells[i,1].Value);
        liste.Add(Excel.Cells[i,2].Value);
        inc(i);
        Caption:=IntToStr(i)+'. satır';
        Application.ProcessMessages;
      end;
      liste.SaveToFile(GetCurrentDir+'\deneme.txt');
      Excel.Workbooks.Close;
    finally
      liste.Free;
      Excel := Unassigned;
    end;

  end;
end;