seleccionar una fila en excel con macro y guardarla com txt

[Schilke]

Buenos días.
Estoy intentando seleccionar una fila de una hoja excel para guardarla como txt.
Tengo dos hojas por tanto el problema se me plantea al decir que active la hoja 2 pero solo quiero por ejemplo la fila 2 de la "a" a la "z" de dicha hoja y luego esa seleccion me la guarde como txt.


Hoja1.Cells(2, 1).Select
Range(Selection, Selection.End(xlToRight)).Select
ActiveRange.SaveAs Filename:=prueba & ".txt"
este es el código que yo he intentado poner pero me da un error.
Gracias de antemano.
Un saludo

[mrocf]

Intenta con:

Código:

File = "C:\Prueba.txt"
Range([A2], [Z2]).Copy
Workbooks.Add
ActiveSheet.Paste
If Dir(File) <> "" Then Kill File
ActiveWorkbook.SaveAs FileName:=File, FileFormat:=xlTextMSDOS
ActiveWindow.Close SaveChanges:=False

Saludos

[Schilke]

Gracias por la idea funciona, solo un pequeño detalle el bloc de notas que me crea es un caos de código y lo que sería perfecto es que me lo crease al igual que cuando seleccionamos guardar como texto delimitado por tabulaciones.

[mrocf]

Es evidente que tienes que cambiar el parámetro FileFormat:=xlTextMSDOS del método SaveAs.

Pues entonces:
a) activa tu grabadora de macros;
b) copia la fila en cuestión;
c) abre un nuevo libro y graba allí el contenido del Portapapeles; y
d) guarda el archivo resultante como de texto con tabulaciones (según lo requieres)... y detén la grabadora.

Luego de los pasos anteriores, obtendrás el parámetro "FileFormat" requerido.

Éxitos.

[Schilke]

Buenas la idea es genial y funciona!!!
ahora ya solo me copia los datos pero un pequeño detalle me los descoloca los tengo agrupados por bloques de 5 y cuando los guarda aparece un dato y luego 7luego 4, y no se porque.
Muchas gracias por toda la ayuda
Saludos

[mrocf]

Amigo:
Esta última descripción de lo que falta pulir, literalmente, "ha pateado" el tablero...

¿Cómo que tienes agrupamientos?...
¿ En una fila tienes "agrupamientos"?...

Esto requiere una "esmerada explicación" que incluya ejemplos concretos.
Quedo al aguardo de ella y te mando un saludo.