Import from txt file.

[tknig01]

Hi, i'm trying to write a macro that obtains data from a huge database extract. The amount of data would easily exceed excel's capabillity so instead of a straightforward extract, i've dumped the info into a text file so i can import in chunks.

Split into groups using fields in col A (fields are either "alpha" or "beta") the data would fit on to a spreadsheet. Can anyone give me the code to only import rows where col A = alpha in a text file.

Thanks Tom Knight.

 

[Andrew Poulsom]

You would need to read in the file one line at a time. Something like this (not tested):

Sub Test()
   Dim r As Long
   Dim Data As String
   Dim Rng As Range
   Set Rng = Range("A1")
   Open "C:TextFile.txt" For Input As #1
   r = 0
   Do While Not EOF(1)
      Line Input #1, Data
      If Left(Data,5) = "Alpha" Then
         Rng.Offset(r,0) = Data
         r = r + 1
      End If
   Loop
   Close #1
End Sub

Amend the target range and text file name to suit. The data will come in as a single column. You can use Text to Columns to parse it.