Hi, i'm trying to import a text file into xls, and i've got it all done, but
have a litle problem with this:

Open Filename For Input As #1
Do While Not EOF(1)

FicheiroActual.Activate

Input #1, Line$

ColunaA$ = Mid$(Line$, 1, 1)
ColunaB$ = Mid$(Line$, 2, 14)
ColunaC$ = Mid$(Line$, 15, 17)
ColunaD$ = Mid$(Line$, 32, 17)

Worksheets("Sheet1").Cells(x, 1).Value = ColunaA$
Worksheets("sheet1").Cells(x, 2).Value = ColunaB$
Worksheets("sheet1").Cells(x, 3).Value = ColunaC$
Worksheets("sheet1").Cells(x, 4).Value = ColunaD$

x = x + 1

Loop
Close #1

Question: the ColunaB$ should be set as text, how can i format the field?

Thank you very much
Pedro Costa

Hi
Format the destination cell as text first

Worksheets("sheet1").Cells(x, 2).NumberFormat = "@"

regards
Paul

On Mar 23, 9:10 am, Pedro Costa
wrote:
Hi, i'm trying to import a text file into xls, and i've got it all done, but
have a litle problem with this:

Open Filename For Input As #1
Do While Not EOF(1)

FicheiroActual.Activate

Input #1, Line$

ColunaA$ = Mid$(Line$, 1, 1)
ColunaB$ = Mid$(Line$, 2, 14)
ColunaC$ = Mid$(Line$, 15, 17)
ColunaD$ = Mid$(Line$, 32, 17)

Worksheets("Sheet1").Cells(x, 1).Value = ColunaA$
Worksheets("sheet1").Cells(x, 2).Value = ColunaB$
Worksheets("sheet1").Cells(x, 3).Value = ColunaC$
Worksheets("sheet1").Cells(x, 4).Value = ColunaD$

x = x + 1

Loop
Close #1

Question: the ColunaB$ should be set as text, how can i format the field?

Thank you very much
Pedro Costa

or:

Worksheets("sheet1").Columns(2).NumberFormat = "@"

This could just go after the loop is completed

J



On Mar 23, 9:26 am, wrote:
Hi
Format the destination cell as text first

Worksheets("sheet1").Cells(x, 2).NumberFormat = "@"

regards
Paul

On Mar 23, 9:10 am, Pedro Costa
wrote:



Hi, i'm trying to import a text file into xls, and i've got it all done, but
have a litle problem with this:

Open Filename For Input As #1
Do While Not EOF(1)

FicheiroActual.Activate

Input #1, Line$

ColunaA$ = Mid$(Line$, 1, 1)
ColunaB$ = Mid$(Line$, 2, 14)
ColunaC$ = Mid$(Line$, 15, 17)
ColunaD$ = Mid$(Line$, 32, 17)

Worksheets("Sheet1").Cells(x, 1).Value = ColunaA$
Worksheets("sheet1").Cells(x, 2).Value = ColunaB$
Worksheets("sheet1").Cells(x, 3).Value = ColunaC$
Worksheets("sheet1").Cells(x, 4).Value = ColunaD$

x = x + 1

Loop
Close #1

Question: the ColunaB$ should be set as text, how can i format the field?

Thank you very much
Pedro Costa- Hide quoted text -

- Show quoted text -

Thank you very much, it worked just fine

Best regards
Pedro Costa

"WhytheQ" escreveu:

or:

Worksheets("sheet1").Columns(2).NumberFormat = "@"

This could just go after the loop is completed

J



On Mar 23, 9:26 am, wrote:
Hi
Format the destination cell as text first

Worksheets("sheet1").Cells(x, 2).NumberFormat = "@"

regards
Paul

On Mar 23, 9:10 am, Pedro Costa
wrote:



Hi, i'm trying to import a text file into xls, and i've got it all done, but
have a litle problem with this:

Open Filename For Input As #1
Do While Not EOF(1)

FicheiroActual.Activate

Input #1, Line$

ColunaA$ = Mid$(Line$, 1, 1)
ColunaB$ = Mid$(Line$, 2, 14)
ColunaC$ = Mid$(Line$, 15, 17)
ColunaD$ = Mid$(Line$, 32, 17)

Worksheets("Sheet1").Cells(x, 1).Value = ColunaA$
Worksheets("sheet1").Cells(x, 2).Value = ColunaB$
Worksheets("sheet1").Cells(x, 3).Value = ColunaC$
Worksheets("sheet1").Cells(x, 4).Value = ColunaD$

x = x + 1

Loop
Close #1

Question: the ColunaB$ should be set as text, how can i format the field?

Thank you very much
Pedro Costa- Hide quoted text -

- Show quoted text -