Excel VBA Read Text File

So how can you import the contents of a csv or
text file into your Excel worksheet:

Find out:

'========================================================
'DESIGNED &amp; CODED BY LOEBLCOM SERVICES 2013
'ERIK LOEBL(713)409-7041
'EMAIL: erik@loeblcomservices.com
'WEB:   http://loeblcomservices.com
'========================================================


Sub query_text_file()
    
    'PURPOSE: Query A Text File
    
    '*************************************
    'clear 'Text File Contents' worksheet
    '*************************************
    Worksheets(&quot;Text File Contents&quot;).Select
    Range(&quot;A2:K6500&quot;).Clear
    
    '*************************************
    'now populate copy the orders over
    '*************************************
    
    Dim strPath As String
    
    'Need to reference the:
    '   Microsoft ActiveX Data Objects 2.5 Library
    Dim s_rst As ADODB.Recordset
    Dim s_cnn As ADODB.Connection 's for sub connection
    Dim intRow As Integer
    
    Const adOpenStatic = 3
    Const adLockOptimistic = 3
    Const adCmdText = &amp;H1
   
    Set s_cnn = New ADODB.Connection

    strToolWkbk = &quot;read_file.txt&quot;
    strPath = ThisWorkbook.Path &amp; &quot;\read_file&quot;

    Debug.Print strPath
    
    
    'For a text file, Data Source is the folder, not the file
    s_cnn = &quot;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&quot; &amp; strPath &amp; &quot;;&quot; _
    &amp; &quot;Extended Properties=&quot;&quot;text;HDR=Yes;FMT=Delimited&quot;&quot;;&quot;
    
    s_cnn.Open
    Set s_rst = New ADODB.Recordset
    

    strSQL = &quot;SELECT * FROM &quot; &amp; strToolWkbk

        
    s_rst.Open strSQL, _
        s_cnn, adOpenStatic, adLockOptimistic, adCmdText

    intRow = 2
    
    s_rst.MoveFirst
    

    Do Until s_rst.EOF
        Range(&quot;A&quot; &amp; intRow) = s_rst(0)
        Range(&quot;B&quot; &amp; intRow) = s_rst(1)
        Range(&quot;C&quot; &amp; intRow) = s_rst(2)
        Range(&quot;D&quot; &amp; intRow) = s_rst(3)
        Range(&quot;E&quot; &amp; intRow) = s_rst(4)
        Range(&quot;F&quot; &amp; intRow) = s_rst(5)
        Range(&quot;G&quot; &amp; intRow) = s_rst(6)
        Range(&quot;H&quot; &amp; intRow) = s_rst(7)
        Range(&quot;I&quot; &amp; intRow) = s_rst(8)
        Range(&quot;J&quot; &amp; intRow) = s_rst(9)

        intRow = intRow + 1
        s_rst.MoveNext
    Loop
    
    Range(&quot;A:C&quot;).Select
    Selection.NumberFormat = &quot;General&quot;
    
    Range(&quot;D:D&quot;).Select
    Selection.NumberFormat = &quot;m/d/yyyy&quot;
    
    Range(&quot;E:K&quot;).Select
    Selection.NumberFormat = &quot;General&quot;
    
    Range(&quot;A1&quot;).Select
    MsgBox &quot;DONE.&quot;
    
    s_rst.Close
    s_cnn.Close
    
    Set s_rst = Nothing
    Set s_cnn = Nothing
        

End Sub