exel dosyasından paradox veri tabanına inport etmek

[yayhansahin]

Merhabalar;

Delhiyi daha önce kullanmadım.Exel dosyasındaki verileri db uzantılı paradoks tablosuna inport etmek istiyorum( delphiyi kurdum bilgisayarıma )

Teşekkürler

[acinar]

Yahya bey, benim de ilk cevabım, umarım işine yarar;
İlk önce Excell dosyasının hangi sayfasını aktaracaksanız, o sayfada iken dosyayı kaydedip kapatmanız gerekiyor.
İkinci satırdan itibaren bilgiler aktarılıyor.

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
sayfa,uygulama: Variant;
begin
uygulama := CreateOleObject('Excel.Application');
uygulama.Visible := True;
uygulama.WorkBooks.Open['c:\Buraya dosyanın bulunduğu klasör \Deneme.xls'];
Table2.Open;//Tabloyu aç
i:=2;
Repeat
Table2.Insert;//Kaydı aç
Table2BARKODNO.AsString:=(uygulama.ActiveSheet.Cells[i,1].Value);
Table2URUNADI.AsString:=(uygulama.ActiveSheet.Cells[i,2].Value);
Table2TUTARI.AsString:=(uygulama.ActiveSheet.Cells[i,3].Value);
Table2ALINAN.AsString:=(uygulama.ActiveSheet.Cells[i,4].Value);
Table2IADE.AsString:=(uygulama.ActiveSheet.Cells[i,5].Value);
Table2SATILAN.AsString:=(uygulama.ActiveSheet.Cells[i,6].Value);
Table2KALAN.AsString:=(uygulama.ActiveSheet.Cells[i,7].Value);
Table2ISTARIHI.AsDateTime:=(uygulama.ActiveSheet.Cells[i,8].Value);
Table2ACIKLAMA.AsString:=(uygulama.ActiveSheet.Cells[i,9].Value);
Table2.Post; //kaydet
inc(i);
until uygulama.ActiveSheet.cells[i,1].value='';//Birinci sütundaki boş hücreye kadar oku
ShowMessage('AKTARMA İŞLEMİ TAMAMLANDI.');
end;

Kod: Tümünü seç