Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Nexan
 
Posts: n/a
Default Importing a text file into Excel with too many rows?

My boss needs me to import a text file into Excel that contains too many rows
for one worksheet to handle. All of the tips I've been able to find regarding
using Data Import Wizard have to do with dealing with too many columns, not
too many rows. How can I fix this problem?

Thanks!
  #2   Report Post  
Norman Jones
 
Posts: n/a
Default

Hi Nexan,

You could, perhaps use the following MS macro:

Sub LargeFileImport()
'--------===============================
' See: MSKB # 120596
http://support.microsoft.com/default...b;en-us;120596
'=====================================
'Dimension Variables
Dim ResultStr As String
Dim FileName As String
Dim FileNum As Integer
Dim Counter As Double
'Ask User for File's Name
FileName = InputBox("Please enter the Text File's name, e.g.
test.txt")
'Check for no entry
If FileName = "" Then End
'Get Next Available File Handle Number
FileNum = FreeFile()
'Open Text File For Input
Open FileName For Input As #FileNum
'Turn Screen Updating Off
Application.ScreenUpdating = False
'Create A New WorkBook With One Worksheet In It
Workbooks.Add template:=xlWorksheet
'Set The Counter to 1
Counter = 1
'Loop Until the End Of File Is Reached
Do While Seek(FileNum) <= LOF(FileNum)
'Display Importing Row Number On Status Bar
Application.StatusBar = "Importing Row " & _
Counter & " of text file " & FileName
'Store One Line Of Text From File To Variable
Line Input #FileNum, ResultStr
'Store Variable Data Into Active Cell
If Left(ResultStr, 1) = "=" Then
ActiveCell.Value = "'" & ResultStr
Else
ActiveCell.Value = ResultStr
End If

'For Excel versions before Excel 97, change 65536 to 16384
If ActiveCell.Row = 65536 Then
'If On The Last Row Then Add A New Sheet
ActiveWorkbook.Sheets.Add
Else
'If Not The Last Row Then Go One Cell Down
ActiveCell.Offset(1, 0).Select
End If
'Increment the Counter By 1
Counter = Counter + 1
'Start Again At Top Of 'Do While' Statement
Loop
'Close The Open Text File
Close
'Remove Message From Status Bar
Application.StatusBar = False

End Sub

If you are not familiar with macros, you may wish to visit David McRitchie's
'Getting Started With Macros And User Defined Functions' at:

http://www.mvps.org/dmcritchie/excel/getstarted.htm


---
Regards,
Norman



"Nexan" wrote in message
...
My boss needs me to import a text file into Excel that contains too many
rows
for one worksheet to handle. All of the tips I've been able to find
regarding
using Data Import Wizard have to do with dealing with too many columns,
not
too many rows. How can I fix this problem?

Thanks!



  #3   Report Post  
Dave Peterson
 
Posts: n/a
Default

Use your favorite text editor and split the giant text file into multiple pieces
(no more than 64k lines each). Then import each part.

Nexan wrote:

My boss needs me to import a text file into Excel that contains too many rows
for one worksheet to handle. All of the tips I've been able to find regarding
using Data Import Wizard have to do with dealing with too many columns, not
too many rows. How can I fix this problem?

Thanks!


--

Dave Peterson
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Excel updating from XML file - file path specific? Sean Excel Discussion (Misc queries) 4 August 5th 05 12:56 PM
Formulas dealing with text data Bagia Excel Worksheet Functions 6 June 20th 05 10:29 PM
Excel 2002 importing file origin is in japanese... Bryan Excel Discussion (Misc queries) 0 March 7th 05 04:59 PM
Importing text file Jillianno Excel Discussion (Misc queries) 1 February 16th 05 06:47 PM
Weekly Transaction Processing Ralph Howarth Excel Worksheet Functions 4 January 19th 05 05:37 AM


All times are GMT +1. The time now is 08:42 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"