Hum, often you can import into Excel...clean it up...and then the data can
be moved to ms-access.
If the text data is too messy, then you can resort to writing your own
import rouintes..but that can be a good deal of work.
The basic code to read a text file via code is:
Sub ReadTextFile
Dim strFile As String
Dim intF As Integer
Dim strLineBuf As String
Dim lngLines As Long
Dim lngBlank As Long
strFile = "c:\my data\MyData.txt"
intF = FreeFile()
Open strFile For Input As #intF
Do While EOF(intF) = False
Line Input #intF, strLineBuf
If Trim(strLineBuf) = "" Then
lngBlank = lngBlank + 1
Else
lngLines = lngLines + 1
End If
Loop
Close intF
End If
MsgBox "Number non blank lines = " & lngLines & vbCrLf & _
"Blank lines = " & lngBlank & vbCrLf & _
"Total = " & lngBlank + lngLines
End Function
The above thus gives you the idea. You could add a few more lines to parse
the data..and write out each line to a table..
