macro para crear txt
cc
Tengo un excel en el que tengo datos hasta la columna AE y 6000 filas.
Necesito crear un txt por cada fila, que el monbre del txt sea
contenidoceldaA6.txt y el contenido del txt corresponda a
contenidocelda AB.
La idea es poner un botón en cada linea que llame a la macro cada vez
que quiera crear un txt de esta linea.
Un saludo y gracias a todos por la colaboración.
Cacho R
a) Seleccionas la fila 200 (por ejemplo).
b) Y quieres generar un txt cuyo nombre de archivo será el que se
encuentre en la celda A200, y cuyo contenido será lo que se encuentre
en la celda AB200.
¿Es tanto así?...
(Mi duda reside en que tienes 28 columnas de información y parecerías
desear exportar la info de una sola de ellas).
Saludos, Cacho.
cc
Efectivamente la información del resto de columnas no deseo
importarla, solamente de dos celdas de cada linea (una para nombre de
txt y otra la información que contiene el txt).
Gracias por tomarte interés.
Cacho R
sub GeneraMiniArchivoDeTexto()
dim myfile as string, mytexto as string
myfile = thisworkbook.path & "\" & _
cells(selection.row, "a") & ".txt"
if dir(myfile) <> "" then kill myfile
mytexto = cells(selection.row, "ab")
workbooks.add
[a1] = mytexto
with activeworkbook
.saveas filename:=myfile, fileformat:=xltextprinter
.close false
end with
end sub
