Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Reemplazar tabulacion por ;

blueangelzx

New member
Registrado
4 Dic 2010
Mensajes
12
Buenas la macro funciona super! solo que no me exporta los txt con el caracter ; no necesito tabulaciones en el txt

Ejemplo de exportacion con [COLOR=rgb(0...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Última edición:
Solución
Cambia en la macro del post #9, esta línea:
Código:
cadena = cadena & a(i, j) & separador


Por esta línea:
Código:
cadena = cadena & Trim(a(i, j)) & separador



Nota: Si necesitas otro separador, puedes cambiarlo en esta línea:
Código:
Const separador As String = ";"


Ejemplos:
Código:
Const separador As String = "|"
Const separador As String = vbTab
Const separador As String = ","


***
Saludos Dante Amor.
Visita: Cursos de Excel y Macros
***
Prueba la siguiente macro:

Código:
Sub Exportar()
  Dim xWs As Worksheet
  Dim xTextFile As String, fName As String, cadena As String
  Dim nFileNum As Long, nRow As Long, nCol As Long, i As...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Última edición:

Adjuntos

Cambia en la macro del post #9, esta línea:
Código:
cadena = cadena & a(i, j) & separador


Por esta línea:
Código:
cadena = cadena & Trim(a(i, j)) & separador
...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Volver
Arriba