Import text file
I'd try recording a macro when I opened the text file via file|open.
You'll the text to columns wizard popup.
You'll be able to choose fixed width, adjust the fields to what you
want--skipping the fields you don't want, too.
Then just copy that imported range and paste to its real home.
(and close the text workbook without saving)
I bet it'll be faster.
beersa wrote:
I am using MsOffice 97.
The following is my code to import text file into the worksheet. The
text file contains 7000 rows.
i = 2
Open "c:\cost_centre.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, inline
If Not IsEmpty(inline) Then
strCC = Mid(inline, 6, 8)
strSS = Mid(inline, 28, 1)
strCG = Mid(inline, 32, 4)
Sheets(currSheet).Range("a" & i) = strCC
Sheets(currSheet).Range("b" & i) = strSS
Sheets(currSheet).Range("c" & i) = strCG
i = i + 1
End If
Loop
Close #1
I have performance problem with above code. It took 5 mins to copy into
the worksheet. What is the fastest way to open a text file?
Thanks.
--
Dave Peterson
|