cornbread
Try this I can't remember where I got it but when I do Ill publish the author because he deserves a mention, the macro basically creates a new sheet once it reaches the maximum no of rows, please ignore the lines prefixed with an * they are other macros I launch from this one. hope it helps
Kevin
Sub ImportBigText()
Dim ResultStr As String
Dim FileName As String
Dim FileNum As Integer
Dim Counter As Double
FileName = InputBox("Please enter the Text File's name, e.g. test.txt")
'If Error Then End
If FileName = "" Then End
FileNum = FreeFile()
Open FileName For Input As #FileNum
Application.ScreenUpdating = False
Workbooks.Add template:=xlWorksheet
Counter = 1
Do While Seek(FileNum)< LOF(FileNum)
Application.StatusBar = "Importing Row " & _
Counter & " of text file " & FileName
Line Input #FileNum, ResultStr
If Left(ResultStr, 1) = "=" Then
ActiveCell.Value = "'" & ResultStr
* EditTheHeader
* InsertColandCalcQty
* WorkTimes
* RemoveCharatEOF
* ClrSpaces
Else
ActiveCell.Value = ResultStr
End If
If ActiveCell.Row = 65536 Then
ActiveWorkbook.Sheets.Add
Else
ActiveCell.Offset(1, 0).Select
End If
Counter = Counter + 1
Loop
Close
Application.StatusBar = False
End
End Sub
This message was edited by swaink on 2002-04-05 12:10