sql'den veri alma sorunu

[emrexcel123]

arkadaşlar ve üstadlar selamlar
sql'den aşağıdaki kodlar yardımı ile veri çekebiliyorum (veritabanım excel bunu belirteyim başta) ve excel'e alıyorum verileri fakat istediğim Microsoft Query'deki belirlediğim filtreleri hücreden alması mümkünmü yani aşağıdaki kodda koyuladığım yerdeki değerlerin hücrelerden alınmasını istiyorum mümkün mü acaba yardımcı olabilecek arkadaşlara teşekkürler ii akşamlar...

Sub SQL_BAGLANTI()
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DSN=Excel Dosyaları;DBQ=C:\Documents and Settings\xxx\Desktop\QUERY\DENEME QUERY.xls;DefaultDir=C:\Documents and" _
        ), Array( _
        " Settings\xxx\Desktop\QUERY;DriverId=790;MaxBufferSize=2048;PageTimeout=5;" _
        )), Destination:=Range("A1"))
        .CommandText = Array( _
        "SELECT `Sayfa1$`.F2, `Sayfa1$`.F5, `Sayfa1$`.F6, `Sayfa1$`.F7, `Sayfa1$`.F8, `Sayfa1$`.F10" & Chr(13) & "" & Chr(10) & "FROM `Sayfa1$` `Sayfa1$`" & Chr(13) & "" & Chr(10) & "WHERE (`Sayfa1$`.F5>{ts[B] '2007-07-30 00:00:00'[/B]}) AND (`Sayfa1$`.F7=[B]'Tahsil edildi'[/B])" _
        , " AND (`Sayfa1$`.F6[B]>580[/B])")
        .Name = "Excel Dosyaları kaynağından sorgula"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

 

[emrexcel123]

arkadaşlar ve üstadlar selamlar
yapmak istediğim sadece koyuladığım yerlerdeki değerlerin her seferinde
MS Query'e girip yazmak yerine hücreden belirlenmesi yani örneğin kodda yer alan "580.00" değerini "a1" hücresine yazdığım zaman getirebilmek yardımcı olabilirseniz çok sevinirim gerçekten minnettar kalırım vakit ayıran arkadaşlara teşekkürler ii akşamlar...

 

[Recep İpek]

, " AND (`Sayfa1$`.F6>" & [a1] & ")")

olarak deneyebilirmisiniz?

 

[emrexcel123]

hocam mükemmelsiniz peki ya diğerleri için ne yapabiliriz yardımcı olursanız çok sevinirim sağolun...

 

[Recep İpek]

Diğerlerinide aynı şekilde yapabilirsiniz.Yanlız tarih formatı biraz farklı olabilir.

Aşağıdaki linkleri inceleyiniz.

http://www.excel.web.tr/showthread.php?t=5200

http://www.excel.web.tr/showthread.php?t=1238

 

[emrexcel123]

hocam koddaki tahsile verildi kısmını yapamadım acaba yardımcı olabilir misiniz :roll:

 

[Recep İpek]

(`Sayfa1$`.F7=" & [b1] & ")" _ şeklinde bir deneyiniz.

 

[emrexcel123]

özür dilerim hocam yanlışlık yapmışım çok çok özür diliyorum üstadım peki diğer sorgulamalar için neler yapabilirim benim için büyük kolaylık olacak hocam yardımcı olursanız sevinirim...

 

[Recep İpek]

Ben başka sorgulama göremedim.

 

[emrexcel123]

hocam genel manada söyledim yani diğer tanımlamalar "Between vs.." gibi

 

[Recep İpek]

Hepsini aynı mantıkla yapabilirsiniz.

Verdiğim linkleri inceleyiniz.