prezados, tenho arquivo que é criado a partir de uma planilha de excel e quando salvo tem quer ser transferido para txt por meio de macros. Até aí tudo bem. O problema é que quando vou abrir o arquivo em txt ele aparece entre aspas, inutilizando todo projeto ja que tenho q entrar em cada arquivo para tirar as aspas...Alguem pode me ajudar? Minha promoção depende disso...
Macro1 Macro
' Sheets("site").Select
Range("U65").Select
Selection.Copy
Workbooks.Add
Range("a1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\luiz\Desktop\bra.txt", _
FileFormat:=xlUnicodeText, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=True
end sub
segue o texto q fica na celula U65:
<Placemark><name>DFSOB070 / ACADEMIA_PF</name><description>5xODU 1xHUB800(1xGEth) 2xPI</description><LookAt><longitude>-10,0</longitude><latitude>-60,0</latitude><range>345.4327619138957</range><tilt>0</tilt><heading>-1.403271936359021e-014</heading></LookAt><styleUrl>#khStyle654</styleUrl><Style><IconStyle><Icon><href>http://maps.google.com/mapfiles/kml/paddle/grn-blank.png</href></Icon><scale>0.9</scale></IconStyle><LabelStyle><scale>0.5</scale></LabelStyle></Style><Point><coordinates>-25-12,0,0</coordinates></Point></Placemark>