¿Exportar celdas a1-b4 en Excel a TXT usando vba?

Sub out_txt_check_identification()

[a1:b4]. Seleccione

Soy largo, soy bajo, soy largo, soy largo

constnname as string= "c:\ * * Enjoy\Shu ju . txt" "La ubicación donde desea guardar el archivo

Abra NName para la salida en modo #1'. Abra el archivo en modo lectura-escritura, el contenido original se sobrescribirá cada vez que escriba\

<. p>irow = [a 65536]. end(xlUp).

irow 1 = [b 65536].

Si irow & gtirow1 entonces

.

irow = irow

Otros

irow = irow1

Terminará si...

para I = selección. fila a selección .rows .count+selection .row-1' Comienza el bucle para escribir datos

For j = 1 para seleccionar

S&P.

Escribe los datos en un archivo de texto

S=""

Escribiré el próximo artículo

"Cerrar #1. " Cierra el archivo.

MsgBox "¡Conversión de hoja de trabajo a archivo de texto completada! ", 65, "Consejo"

Conector final