Excel Import

Paket programlarınızın tanıtımını bu forumda yapabilirsiniz. Bu foruma soru sormayın!
Cevapla
Kullanıcı avatarı
White Rose
Üye
Mesajlar: 726
Kayıt: 06 Tem 2005 09:41
Konum: Güneyden
İletişim:

Excel Import

Mesaj gönderen White Rose »

s.a.
Excel dosyasından Paradox yada Firebird/Interbase dosyalarınıza parametrik import programı.

http://www.yusufakgul.org/programlar/Excel_Import.rar
En son White Rose tarafından 14 May 2014 08:40 tarihinde düzenlendi, toplamda 2 kere düzenlendi.
Kullanıcı avatarı
G.Arkas
Üye
Mesajlar: 829
Kayıt: 01 Eki 2007 07:16
Konum: İstanbul
İletişim:

Re: Excel Import

Mesaj gönderen G.Arkas »

Merhaba Yusuf Bey;

Öncelikle yazılımınız için sonsuz teşekkürler beni büyük bir dertten kurtardınız.Eğer mümkünse kaynak kodlarını yayınlayabilirmisiniz? yada hangi yolu izlediğinizi anlatabilirmisiniz bilgi vermek açısından.
Teşekkür eder iyi çalışmalar dilerim.
Resim
Kullanıcı avatarı
sabanakman
Kıdemli Üye
Mesajlar: 3077
Kayıt: 17 Nis 2006 08:11
Konum: Ah bi Antalya olaydı keşke (Ankara)

Re: Excel Import

Mesaj gönderen sabanakman »

Aslında ADOConnection ile sanki Access dosyasına veya SQL Server veritabanına bağlanır gibi Excel dosyasına bağlanabilirsiniz.
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Dosya Adı;Extended Properties=Excel 8.0;Persist Security Info=False
ConnectionString ile Data Source=c:\yol\deneme.xls dosyasını belirseniz ve select * from [Sayfa1$]gibi bir sorgu kullanırsanız Excel sayfasını ADO ile okuyabilirsiniz.
Şaban Şahin AKMAN
_________________
Derin olan kuyu değil kısa olan iptir. - .
denizfatihi
Üye
Mesajlar: 254
Kayıt: 16 Şub 2004 06:12
Konum: istanbul

Re: Excel Import

Mesaj gönderen denizfatihi »

Herkeze Merhaba,

Formdaki "Excelden kaç kayıt alınacak" kısmı için sarı boyalı kısım adedi nasıl buluyoruz.
herkeze kolay gelsin.
Kullanıcı avatarı
White Rose
Üye
Mesajlar: 726
Kayıt: 06 Tem 2005 09:41
Konum: Güneyden
İletişim:

Re: Excel Import

Mesaj gönderen White Rose »

Excel :variant;
Excel:=CreateOleObject('Excel.application');
Lbl_Adet.Caption:=IntToStr(Excel.Range[Char(96+1)+IntToStr(65536)].end[3].Rows.Row);

Olması lazım.
denizfatihi
Üye
Mesajlar: 254
Kayıt: 16 Şub 2004 06:12
Konum: istanbul

Re: Excel Import

Mesaj gönderen denizfatihi »

White Rose yazdı:Excel :variant;
Excel:=CreateOleObject('Excel.application');
Lbl_Adet.Caption:=IntToStr(Excel.Range[Char(96+1)+IntToStr(65536)].end[3].Rows.Row);

Olması lazım.
Write Rose Selam,

öncelikle teşekkür ederim ama ben yine de tam nasıl kullanıldığını anlamadım.
Kullanıcı avatarı
White Rose
Üye
Mesajlar: 726
Kayıt: 06 Tem 2005 09:41
Konum: Güneyden
İletişim:

Re: Excel Import

Mesaj gönderen White Rose »

Var

Excel :variant;
.....

Excel:=CreateOleObject('Excel.application');
Excel.WorkBooks.Open(Edt_ExcelDosyasi.Text);

Lbl_Adet.Caption:=IntToStr(Excel.Range[Char(96+1)+IntToStr(65536)].end[3].Rows.Row);
mrtblt
Üye
Mesajlar: 222
Kayıt: 02 Tem 2007 05:13

Re: Excel Import

Mesaj gönderen mrtblt »

Merhaba

Excel dosyasi sectigimde "Invalid variant operation" Hatasi aliyorum

Dosyayi secip ilerlemek isteyincede "Excel dosyasindan veri basliklari alinmamis" hatasi aliyorum. Oysaki veri basliklari mevcut ve tabloda ustten ve yanlardan bos satirlar yok
Kullanıcı avatarı
White Rose
Üye
Mesajlar: 726
Kayıt: 06 Tem 2005 09:41
Konum: Güneyden
İletişim:

Re: Excel Import

Mesaj gönderen White Rose »

uses kısmına variants unitini ekleyin
mrtblt
Üye
Mesajlar: 222
Kayıt: 02 Tem 2007 05:13

Re: Excel Import

Mesaj gönderen mrtblt »

Neredeki uses? Programin kaynak kodlarini da yayinladinizmiki?
Cevapla