So how can you import the contents of a csv or
text file into your Excel worksheet:
Find out:
'========================================================
'DESIGNED & 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("Text File Contents").Select
Range("A2:K6500").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 = &H1
Set s_cnn = New ADODB.Connection
strToolWkbk = "read_file.txt"
strPath = ThisWorkbook.Path & "\read_file"
Debug.Print strPath
'For a text file, Data Source is the folder, not the file
s_cnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath & ";" _
& "Extended Properties=""text;HDR=Yes;FMT=Delimited"";"
s_cnn.Open
Set s_rst = New ADODB.Recordset
strSQL = "SELECT * FROM " & strToolWkbk
s_rst.Open strSQL, _
s_cnn, adOpenStatic, adLockOptimistic, adCmdText
intRow = 2
s_rst.MoveFirst
Do Until s_rst.EOF
Range("A" & intRow) = s_rst(0)
Range("B" & intRow) = s_rst(1)
Range("C" & intRow) = s_rst(2)
Range("D" & intRow) = s_rst(3)
Range("E" & intRow) = s_rst(4)
Range("F" & intRow) = s_rst(5)
Range("G" & intRow) = s_rst(6)
Range("H" & intRow) = s_rst(7)
Range("I" & intRow) = s_rst(8)
Range("J" & intRow) = s_rst(9)
intRow = intRow + 1
s_rst.MoveNext
Loop
Range("A:C").Select
Selection.NumberFormat = "General"
Range("D:D").Select
Selection.NumberFormat = "m/d/yyyy"
Range("E:K").Select
Selection.NumberFormat = "General"
Range("A1").Select
MsgBox "DONE."
s_rst.Close
s_cnn.Close
Set s_rst = Nothing
Set s_cnn = Nothing
End Sub
Click here for the file:
VBA Read Excel File.zip
Learn Access VBA: Understand Tables, Queries, Forms, and Reports
Learn Access VBA: From Zero to Database Hero If you’ve ever opened Microsoft Access and wondered how all the pieces fit together — tables, queries, forms, and reports — this tutorial is made for you. In just a few minutes, you’ll understand how Access works behind the scenes and see how VBA (Visual Basic for […]
How to Fix Run Time Error 1004 in Excel
If you work with Microsoft Excel frequently, chances ar ling for a solution. Fortunately, this error is well-documented, and there are several ways to resolve it. In this article, we’ll explore the causes of run time error 1004, practical steps to fix it, and preventive measures to reduce the chances of it happening again. What […]
How To Escape Apostrophe In SQL Update Query
If you are looping a table with thousands of records, you’ll probably run into at least one that has an apostrophe in the field name. Like “Mike’s” or “M’cormick”, or something else. Anyway, here is one way to escape the string when you are doing your update query. Option Compare Database Sub YDriveLoop() ‘4/23/24 erik@loeblcomservices.com […]
How To Parse A Flat File In Excel VBA
In another post I demonstrated how to access a file on your computer using the MS Office Library. Here it is if you don’t know what I’m talking about. In this post, I am going to show you how to access the file and load it into your spreadsheet. I will do the same thing […]
Support these sponsors: