Importing Large CSV file into Exel

[Bails]

Hope someone can assist me with this problem?
I have a large CSV file that i wish to load into Excel, Problem is that there is over 20,000 items and attempting to load it causes Excel to report that the file was not fully loaded, as everything is trying to load into the one Book/

Any assistance would be greatly appreciated.

Bails

[GaryB]

What version are you using? 97 should be able to load 65,000 lines without a problem, but I know 4.0 had a limit of about 16,000

[nehpets12]

Import it into word first and the copy and paste half at a time into excel

[Bails]

On 2002-04-18 00:33, GaryB wrote:
What version are you using? 97 should be able to load 65,000 lines without a problem, but I know 4.0 had a limit of about 16,000

I am using version 7 for win 95.
Will give "Nehpets12" hint a try.
Thanks..Bails
PS Keep watching as I may still require guidance.....

[swaink]

Try this but first check how many rows you actually have this code is set to 65536 alter it if need be.

You need to add the code to a module in your workbook.

If you run the code you will be shown an Input box which will allow you to select the file you want.

It imports your text and if it reaches the row 65536 it creates a new worksheet.

Hope it helps

Kev

PS it's not my code but I can't remember the author

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

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-18 05:18 ]

[Bails]

Thanks to you guys.
Problem solved.
Now the Happy owner of an Excel workbook and a redundant CSV File.
Thanks again....Bails