Makro ve Ado bağlantısı hk.

[hakanaslan78]

Merhaba Arkadaşlar,

Kapalı dosya dan aşağıdaki bağlantı ve sorguyla bilgilerimi sorunsuz bir şekilde alabiliyorum. Şöyle bir sorunum var sadece. Bilgileri aldığım dosyadaki değerlerin son satırındaki bilgileri, Excel in boş satırları ile birlikte getiriyor. Verilerin dışın da bu satırların alınmamasını nasıl bir kod ekleyerek sağlaya bilirim.

Yazdığım kod aşağıdaki gibidir :

Sub kk()
Dim Con As Object, Rs As Object, Sorgu As String
Set Con = CreateObject("AdoDB.Connection")
Set Rs = CreateObject("AdoDB.RecordSet")
Con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & ThisWorkbook.Path & "\Bien.xlsx" & _
";Extended Properties=""Excel 12.0;Hdr=yes"""
Sorgu = "Select Tarih, [Tali Bayi], Banka, [Kredi Kartı], [Taksit Sayısı], Tutar, İptal From [Sheet1$]"
Rs.Open Sorgu, Con, 1, 1
Range("A2").CopyFromRecordset Rs
Rs.Close: Con.Close
Sorgu = vbNullString: Set Rs = Nothing: Set Con = Nothing

End Sub



Yardımlarınız için şimdiden çok teşekkür ederim.

 

[aliozturk55]

Sorgu = "Select Tarih, [Tali Bayi], Banka, [Kredi Kartı], [Taksit Sayısı], Tutar, İptal From [Sheet1$]" sorguyu
Sorgu = "Select Tarih, [Tali Bayi], Banka, [Kredi Kartı], [Taksit Sayısı], Tutar, İptal From [Sheet1$] where Tarih is not null or Tarih <>'' " şeklinde olması gerekiyor. dener misiniz ? tarih sütununu aldım ama tarih sütunu 0 geliyor galiba başka sütun da seçebilirsiniz

 

[hakanaslan78]

Sorgu = "Select Tarih, [Tali Bayi], Banka, [Kredi Kartı], [Taksit Sayısı], Tutar, İptal From [Sheet1$]" sorguyu
Sorgu = "Select Tarih, [Tali Bayi], Banka, [Kredi Kartı], [Taksit Sayısı], Tutar, İptal From [Sheet1$] where Tarih is not null or Tarih <>'' " şeklinde olması gerekiyor. dener misiniz ? tarih sütununu aldım ama tarih sütunu 0 geliyor galiba başka sütun da seçebilirsiniz

Ali bey çok teşekkür ederim, sorunum bu şekilde çözdüm.