Importing Large CSV file into Exel

Bails

New Member
Joined
Apr 16, 2002
Messages
3
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
 

Excel Facts

Copy formula down without changing references
If you have =SUM(F2:F49) in F50; type Alt+' in F51 to copy =SUM(F2:F49) to F51, leaving the formula in edit mode. Change SUM to COUNT.
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
 
Upvote 0
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.....
 
Upvote 0
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
 
Upvote 0
Thanks to you guys.
Problem solved.
Now the Happy owner of an Excel workbook and a redundant CSV File.
Thanks again....Bails
 
Upvote 0

Forum statistics

Threads
1,213,513
Messages
6,114,064
Members
448,545
Latest member
kj9

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top