Excel - Generar Archivo TXT

Saludos Foro

en las primera 20 columnas tengo cierto datos

quiero generar un archivo .txt con un seprador | Piper

Tengo este codigo

Open "c:\pruebaxx.txt" For Output As #1
Print #1, Chr(34) & Range("C6").Value & Chr(34); "|";
Print #1, Chr(34) & Range("D6").Value & Chr(34); "|";
Print #1, Chr(34) & Range("E6").Value & Chr(34); "|";
Close #1

Pero en el archivo generado tengo:

"04. Nacional"|"03. Prest serv prof"|"

Como hago para quitarle las " " (comas) y dejar solo el separador Piper....?

gracias

elimina el Chr(34)

Saludos, desde Baires, JuanC

Gracias por tu ayuda

Tengo otra duda
este codigo es para la primera fila
Sub TXT()
Open "c:\pruebaxx.txt" For Output As #1
Print #1, "|"; Range("C6").Value;
Print #1, "|"; Range("D6").Value;
Print #1, "|"; Range("E6").Value;
Close #1
End Sub

Pero como seria para la segunda fila y asi sucesivamente

Print #1, "|"; Range("C7").Value;
Print #1, "|"; Range("D7").Value;
Print #1, "|"; Range("E7").Value;

Sub TXT()
Dim i&
Open "c:\pruebaxx.txt" For Output As #1
For i = 6 To 100
Print #1, "|"; Range("C" & i).Value;
Print #1, "|"; Range("D" & i).Value;
Print #1, "|"; Range("E" & i).Value;
Next
Close #1
End Sub

Saludos, desde Baires, JuanC

Saludos

Open "C:\pruebaxx.txt" For Output As #1
For i = 6 To 9
Print #1, "|"; Range("C" & i).Value;
Print #1, "|"; Range("D" & i).Value;
Print #1, "|"; Range("E" & i).Value;
Print #1, "|"; Range("F" & i).Value;
Print #1, "|"; Range("G" & i).Value;
Print #1, "|"; Range("H" & i).Value;
Print #1, "|"; Range("I" & i).Value;
Print #1, "|"; Range("J" & i).Value;
Print #1, "|"; Range("K" & i).Value;
Print #1, "|"; Range("L" & i).Value;
Print #1, "|"; Range("M" & i).Value;
Print #1, "|"; Range("N" & i).Value;
Print #1, "|"; Range("O" & i).Value;
Print #1, "|"; Range("P" & i).Value;
Print #1, "|"; Range("Q" & i).Value;
Print #1, "|"; Range("R" & i).Value;
Print #1, "|"; Range("S" & i).Value;
Print #1, "|"; Range("T" & i).Value;
Print #1, "|"; Range("U" & i).Value;
Print #1, "|"; Range("V" & i).Value;
Next
Close #1
End Sub

Algo falta en el codigo:
lo que busco es Quede de la siguiente forma
utilizo las primeras 20 columnas de la hoja

04|06|AOAJ5902068Z0|||||6847||||||||||||| Datos Primera Fila
04|07|CAAJ260407S86|||||2968||||||||||||| Datos Segunda Fila

a ver si me puede ayudar
Gracias

Te sugiero que leas en la ayuda como funciona Print
y también puede llegar a servirte usar el operador de concatenación &
La ayuda no muerde!

Saludos, desde Baires, JuanC

Public Sub ArchivoTXT()
Open "C:\pruebaxx2.txt" For Output As #1
Dim i ' las filas
Dim j ' as columnas
' esto es el equivalente a range a1:e5
For i = 6 To 200
e = ""
For j = 3 To 22
e = e & Worksheets(1).Cells(i, j).Value & "|"
Next j
Print #1, e
Next i
Close #1
End Sub

Tome tu consejo y me puse a estudiar y entendi el funcionamiento de este codigo
que me sirvio mucho para lo que pretendo hacer, pero tu sabes surgen ideas, dudas y mi unico medio de aprender es este.

La cuestion es lo siguiente: despues de generar el archivo txt, lo tengo que subir a un Sistema que no propociona una dependencia de Gobierno.
ya lo subi y si funciono.

Pero me surgen 2 Dudas:

como al pricipio no se cuantos registros se van a generar
entonces tengo que cambiar esta parte del codigo "For i = 6 to 200 (de la fila 6 a la 200)" y ponerle hasta que fila se encuentran los registros generados.

Aqui entra mi Primer Prgunta, cono le haria para que cuando ejectue el macro "Me pregunte hasta que fila se encuentra el Ultimo Registro Generado, ponerle el dato manual.

Esto es para cuando suba el archivo al sistema mencionado sean los exactos.

La Segunda Pregunta es parecida en cuanto al mensaje anterior pero esta vez que me pregunta el "Como se va a llamar el archivo"

Espero haberme explicado.

Gracias por la ayuda que me puedas brindar

Saludos desde Saltillo Mexico.

un forma es crear un formulario personalizado
y otra forma es usando la función InputBox( ) (ver en la ayuda de qué se trata)

Saludos, desde Baires, JuanC