Posted to microsoft.public.excel.programming

joel[_428_] joel[_428_] is offline

external usenet poster

Posts: 1

Modify The Code For Importing Text File into an Excel File

Try this simple change

From

Set rngSnapShot = rngSnapShot.Offset(1, 0)

to

if rngSnapShot.row <= 5000 then
Set rngSnapShot = rngSnapShot.Offset(1, 0)
else
Set NewSht = sheets.add(after:=sheets(sheets.count))
Set rngSnapShot = Newsht.Range("A1")
end if

--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=165382

Microsoft Office Help

Reply With Quote

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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
importing text file to excel	sherry	Excel Discussion (Misc queries)	1	February 20th 08 08:17 PM
Importing text file, only option to edit existing file	smokey99	Excel Discussion (Misc queries)	8	April 26th 06 09:08 PM
Importing Text File into Excel	Martin	Excel Discussion (Misc queries)	1	April 2nd 06 02:48 PM
Modify text file before import to Excel	HappyDevil24	Excel Programming	6	March 4th 04 01:45 AM
importing text file, removing data and outputting new text file	Pal	Excel Programming	8	February 27th 04 08:32 PM

All times are GMT +1. The time now is 08:45 AM.

About Us

"It's about Microsoft Excel"

Menu

About Us