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:
Cita: 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?