Exportar desde excel a texto (sin las molestas comillas dobles)

[lmedrano3]

Hola todos,

Hace tiempo tuve eso de problema, la solución fue una Macro que encontre en un sitio de un tipo que me salvo la vida ya que funciona de maravilla y anexo:

Sub Export()
Dim r As Range, c As Range
Dim sTemp As String

Open "c:\Output.txt" For Output As #1
For Each r In Selection.Rows
sTemp = ""
For Each c In r.Cells
sTemp = sTemp & c.Text & Chr(9)
Next c

'Get rid of trailing tabs
While Right(sTemp, 1) = Chr(9)
sTemp = Left(sTemp, Len(sTemp) - 1)
Wend
Print #1, sTemp
Next r
Close #1
End Sub

Pero otra vez tengo problemas: en mi archivo de excel hay caracteres de chino simplificado, a la hora de correr la macro me convierte cada uno de ellos a un signo de interrogación.

Alguna idea?

[Daniel Ulczyk]

Tema movido desde el foro de Accesibilidad y Usabilidad