• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Kapalı Excelden Veri Alma

Katılım
24 Şubat 2017
Mesajlar
88
Excel Vers. ve Dili
2010-Türkçe
Merhabalar,

Öncelikle herkese hayırlı günler diliyorum. Ekte yer alan dosyada klasör içindeki kapalı excelden veri çekiyorum. Veri çekilen exceldeki A sütununda 1 yazan verileri çekmek mümkün mü? yardımcı olabilirmisiniz değerli arkadaşlar
 

Ekli dosyalar

Buyurun.:cool:
Kod:
rs.Open "select * from [Sayfa1$] where F1=1;", conn, 1, 1
 
Evren Bey;

Tabloda; A sütununda header olduğu için direkt olarak header'ı da kullanabilirsiniz. Tabii bunun için ilk önce kurulacak bağlantıda tabloda header'ların olduğunu belirtmek gerekiyor.

Kod:
    conn.Open ("provider=microsoft.ace.oledb.12.0;data source=" & yol & "\" _
            & dosya & ";extended properties=""excel 12.0;hdr=[COLOR=Red][B]yes[/B][/COLOR]""")
    rs.Open "select * from [Sayfa1$] where [B][COLOR=red][Durum][/COLOR][/B]=1;", conn, 1, 1
Orjinal kodun diğer yerlerinde de bazı sıkıntılar var, ama onlara girmeyeyim şimdi...

.
 
Evren Bey;

Tabloda; A sütununda header olduğu için direkt olarak header'ı da kullanabilirsiniz. Tabii bunun için ilk önce kurulacak bağlantıda tabloda header'ların olduğunu belirtmek gerekiyor.

Kod:
    conn.Open ("provider=microsoft.ace.oledb.12.0;data source=" & yol & "\" _
            & dosya & ";extended properties=""excel 12.0;hdr=[COLOR=Red][B]yes[/B][/COLOR]""")
    rs.Open "select * from [Sayfa1$] where [B][COLOR=red][Durum][/COLOR][/B]=1;", conn, 1, 1

Orjinal kodun diğer yerlerinde de bazı sıkıntılar var, ama onlara girmeyeyim şimdi...

.

Anladım Haluk Bey .
Header = no olduğu için F1 yazmıştım bende.
İlginiz için teşekkür ederim.
İyi geceler.
 
Size de iyi akşamlar Evren Bey.

.
 
Geri
Üst