Colección de citas famosas - Colección de máximas - ¿Exportar celdas a1-b4 en Excel a TXT usando vba?
¿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