Kapalı Dosyadan Koşullu ( İki Tarih Arası ) Veri Getirmek ( ADO )

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

tahsinanarat

Katılım
13 May 2019
Mesajlar
303
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Kod: 
Sub Veri_Aktar()
Range("A2:AL65000").ClearContents
    Set con = CreateObject("Adodb.Connection"):  Set rs = CreateObject("Adodb.RecordSet")
        con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
         "C:\PERSONEL\PERSONEL_DATA.xlsm" & ";extended properties=""excel 12.0;hdr=no;imex=1"""

       Sorgu = "Select f1,f2,f4,f15,f16,f18,f19,f34,f35 from [PERSONEL$A2:AL65000]"
        rs.Open Sorgu, con, 1, 1
        Range("a2").CopyFromRecordset rs
        rs.Close: con.Close
         Set con = Nothing: Set rs = Nothing: Sorgu = Empty
         Range("b1").Select
End Sub

Yukarıdaki kod ile kapalı dosyadan verileri çekebiliyorum. Ancak ben f35 sütununda bulunan tarih sütununa göre excel hücresinden belirleyeceğim başlangıç ve bitiş tarih aralığını getirmesini istiyorum. Mesala a1 hücresinde başlangıç, b1 hücresinde ise bitiş tarihinin olduğunu varsayalım.
Yardımcı olacak arkadaşlarıma teşekkür ederim.
 
Excel de açıklama kutucuklarının yerinin ve şeklinin değişmesi.
Amortisman hesaplama formül
Tarihe göre sırala Oylamaya göre sırala
Merhaba Sayın @tahsinanarat .

ADO konusunda pek bilgim yok ama yine de veri alınacak dosyanın bir örneği eklemenizde yarar var sanki.
Ekleyeceğiniz kaynak belge örneğinde, veri sayısı az olabilir ama başlıklar dahil, asıl kaynak belgeyle aynı yapıda olması doğru olur.

Ben olmasam da; yöntem konusunda bilgisi olan üyelerimiz, sorunuzu cevapsız bırakmayacaktır.

.
 
Oyla 0 Olumsuz oyla
t1 = CLng(CDate([d2]))
t2 = CLng(CDate([e2]))
sorgu = "select [POL], sum([NET]), sum([BRÜT]), sum([KMSYN-Ş]),sum([KMSYN-B]),sum([KMSYN-T]) "
sorgu = sorgu & ",[ŞİRKET],[ŞEHİR]"
sorgu = sorgu & "from [DATA$]"
sorgu = sorgu & "where CLng(cdate(TANZIM)) >=" & t1 & " and CLng(cdate(TANZIM)) <=" & t2 & " "
sorgu = sorgu & "group by [POL],[ŞİRKET],[ŞEHİR]"

t1 ve t2 tarih kriterleridir. Lütfen kendi dosyanıza adapte ediniz. Saygılar.
 
Oyla 0 Olumsuz oyla
tahsinanarat' Alıntı:
Kod: 
Sub Veri_Aktar()
Range("A2:AL65000").ClearContents
    Set con = CreateObject("Adodb.Connection"):  Set rs = CreateObject("Adodb.RecordSet")
        con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
         "C:\PERSONEL\PERSONEL_DATA.xlsm" & ";extended properties=""excel 12.0;hdr=no;imex=1"""

       Sorgu = "Select f1,f2,f4,f15,f16,f18,f19,f34,f35 from [PERSONEL$A2:AL65000]"
        rs.Open Sorgu, con, 1, 1
        Range("a2").CopyFromRecordset rs
        rs.Close: con.Close
         Set con = Nothing: Set rs = Nothing: Sorgu = Empty
         Range("b1").Select
End Sub

Yukarıdaki kod ile kapalı dosyadan verileri çekebiliyorum. Ancak ben f35 sütununda bulunan tarih sütununa göre excel hücresinden belirleyeceğim başlangıç ve bitiş tarih aralığını getirmesini istiyorum. Mesala a1 hücresinde başlangıç, b1 hücresinde ise bitiş tarihinin olduğunu varsayalım.
Yardımcı olacak arkadaşlarıma teşekkür ederim.
Genişletmek için tıklayın ...
Kod: 
Sub Veri_Aktar()
Sheets("Takip_Listesi").Select
Range("A6:az65000").ClearContents
Set con = CreateObject("Adodb.Connection"): Set rs = CreateObject("Adodb.RecordSet")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
"C:\PERSONEL\ANA SAYFA.xlsx" & ";extended properties=""excel 12.0;hdr=no;imex=1"""

ilktarih = CLng(CDate(Range("G3").Value))
sontarih = CLng(CDate(Range("H3").Value))
sorgu = "Select f1,f2,f3,f7,f23,f20 from [ANA SAYFA$A2:AZ65536] WHERE CLng(CDate(f20)) BETWEEN  '" & ilktarih & "'  and '" & sontarih & "' and NOT isnull(f20)"

'f1 demek 1.sütundaki veri demek
rs.Open sorgu, con, 1, 1
Range("a5").CopyFromRecordset rs
rs.Close: con.Close
Set con = Nothing: Set rs = Nothing: sorgu = Empty
 Range("b3").Select
 End Sub
 Tahsin bey makroyu kendinize göre uyarlayın istediğiniz sonucu vercektir
 
Oyla 0 Olumsuz oyla
Sn. @mertatakan_3838 cevabınız için çok teşekkür ederim, orijinal dosyama uyguladığımda ekte gönderdiğim hataları alıyorum, aynı kodun WHERE CLng(CDate(f35)) BETWEEN '" & ilktarih & "' and '" & sontarih & "' and NOT isnull(f35)"
ibaresini sildiğimde normal verilerimi çekebiliyorum, ancak tarih ile ilgili hata alıyorum. Kapalı dosyamda tarih satırı f35 sütununa denk geliyor.
Bakabilirseniz sevinirim.
 

Ekli dosyalar

  • veritürü uyuşmazlığı.webp
    veritürü uyuşmazlığı.webp
    29.4 KB · Görüntüleme: 30
  • hata_satırı.webp
    hata_satırı.webp
    25.6 KB · Görüntüleme: 24
Oyla 0 Olumsuz oyla
tahsinanarat' Alıntı:
Sn. @mertatakan_3838 cevabınız için çok teşekkür ederim, orijinal dosyama uyguladığımda ekte gönderdiğim hataları alıyorum, aynı kodun WHERE CLng(CDate(f35)) BETWEEN '" & ilktarih & "' and '" & sontarih & "' and NOT isnull(f35)"
ibaresini sildiğimde normal verilerimi çekebiliyorum, ancak tarih ile ilgili hata alıyorum. Kapalı dosyamda tarih satırı f35 sütununa denk geliyor.
Bakabilirseniz sevinirim.
Genişletmek için tıklayın ...
tahsin bey veri çektiğiniz sayfanın sütun aralığı neyse onu yazın mesela burada sorgu satırında $A2:AZ65536 aralığı belirtilmiş bu benim sayfamın sütun aralığı siz kendi sayfanızı yazınız
 
Oyla 0 Olumsuz oyla
Sn. @mertatakan_3838 Elinize sağlık tarih aralığını getiriyor, Sadece başlık satırı gelmiyor, çok önemli değil sadece merakımdan soruyorum;
[PERSONEL$A2:BK65536] aralığını yazdığımda hata veriyor, [PERSONEL$A3:BK65536] olarak yazıldığında hata vermeden ve başlık satırı olmadan geliyor.
Sizi bayağı yordum, hakkınızı helal edin Çok teşekkür ediyorum.
 
Oyla 0 Olumsuz oyla
Sn. @mertatakan_3838 bahse konu dosyada bir kriter daha koymak istiyorum;
f30 sütununda A,B,C ve D diye gururlar var, Takip_Listesi sayfamın F3 hücresine grup adını yazdığımda tarih aralığındaki sadece o gurubun gelmesini istiyorum.
Biraz araştırma yaptım ; where f2 like '%" & s1.[F3] & "%'") kodunu buldum ama sorgunun içine uyarlayamadım. Yardımcı olabilir misiniz. Teşekkürler.
 
Oyla 0 Olumsuz oyla
tahsinanarat' Alıntı:
Sn. @mertatakan_3838 bahse konu dosyada bir kriter daha koymak istiyorum;
f30 sütununda A,B,C ve D diye gururlar var, Takip_Listesi sayfamın F3 hücresine grup adını yazdığımda tarih aralığındaki sadece o gurubun gelmesini istiyorum.
Biraz araştırma yaptım ; where f2 like '%" & s1.[F3] & "%'") kodunu buldum ama sorgunun içine uyarlayamadım. Yardımcı olabilir misiniz. Teşekkürler.
Genişletmek için tıklayın ...
Deneyiniz
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt