View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
diacci1st diacci1st is offline
external usenet poster
 
Posts: 15
Default conevert XLS to TXT

Hi Tom Thank you again
Well that is the problem
So I have a text file that i need to open in to excel run the below code and
re-save in TXT format:
For Each Cell In Range("A1:A65000")
s = Cell.Value
If Left(s, 1) = "1" Then
i = 208
iloc = InStr(i, s, " ", vbTextCompare)
t = 223
tloc = InStr(t, s, " ", vbTextCompare)

s1 = Left(s, i - 1)
s3 = Right(s, Len(s) - iloc)
s2 = "*************** "
Cell.Value = s1 & s2 & s3

When I re open the file in TXT on random lines I have the " at the begining
of the line:
1234435678
"123456
asdfg
"qwertyuio
But If I look at the file in excel I can not see the " so I can not remove
them.
Can you please help?

Thank you

"Tom Ogilvy" wrote:

show the code that saves the file.

--
Regards,
Tom Ogilvy


"adiacc" wrote:

Thank you Tom
How could avoid that?
On the excel file I can not see the " and I do not have any commas..
Thank you