Writing Cell Content To Text File As It Seems! 1

[MrProgrammer]

Hi everybody,
I want to ask something. I have an excel file which contains some records with special formats. For example one field has "0000000000" custom format which means even I enter 100 to that cell's value, it is seen as 0000000100.

Here is my problem. I want to concatenate each row's fields and write each record into a text file line by line. when concatenating fileds, I use & operator.

For example;

Open "BLABLA.TXT" For Output As #1
rowtext = Range("A2&quot.Value & Range("B2&quot.Value .....
Write #1, rowtext
Close #1

Here is the problem: cell's values are taken without their formats. For example A2 cell contains value 100 and its format is 0000000000. So I want to write it as 0000000100 into the text file. But Range("A2&quot.Value returns just 100 not 0000000100. Is there a short way of doing this?

Thanks in advance.

 

[combo]

You can use Text property instead of Value:
[tt]rowtext = Range("A2&quot.Text & Range("B2&quot.Text .....[/tt]

combo

 

[MrProgrammer]

In fact, I tried that method. But I think I missed some parts so it did'nt work. Now I did it more carefully and it works. Thank you very much combo!!!