Ado ile kapalı txt veri alma hk.

[veyselemre]

ekli txt dosyasında virgül ile ayrılmış 15 değer (sütun) bulunmakta;
Burada şu şekilde bir sorgu oluşturabiliyor muyuz?
5. sütunda "1" olanlar, 6. sütunda "0" olanlar gibi

Sub veriAlADO()
    Dim pth$, strCon$, strSql$, fName$, rs As Object

    pth = "C:\Users\EMRE\Downloads\"
    fName = "TestFile.txt"

    strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Text;HDR=No';Data Source=" & pth

    strSql = "SELECT * FROM " & fName & " WHERE F14=1 AND F15=0"

    With Sheets("Sayfa1")
        .Cells.ClearContents
        Set rs = CreateObject("ADODB.Recordset")
        rs.Open strSql, strCon
        .Range("A1").CopyFromRecordset rs
        rs.Close
    End With
End Sub

 

[tamer42]

Sub veriAlADO()
    Dim pth$, strCon$, strSql$, fName$, rs As Object

    pth = "C:\Users\EMRE\Downloads\"
    fName = "TestFile.txt"

    strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Text;HDR=No';Data Source=" & pth

    strSql = "SELECT * FROM " & fName & " WHERE F14=1 AND F15=0"

    With Sheets("Sayfa1")
        .Cells.ClearContents
        Set rs = CreateObject("ADODB.Recordset")
        rs.Open strSql, strCon
        .Range("A1").CopyFromRecordset rs
        rs.Close
    End With
End Sub

teşekkürler Veysel Hocam
iyi seneler...