Añadir a Importar el texto de varios .txt a una hoja de excel, el texto de cada archivo en una celda
luis mondelo me ha solucionado lo sigte:
Importar el texto de varios archivos.txt a una hoja de excel, el texto de cada archivo en una celda
pero seria mucho pedir que me importe también el nombre del archivo txt ,a la celda contigua
1 Respuesta
Respuesta de Luis Mondelo
1
Ahora te contesto
Aquí tienes la macro para poner el nombre del txt en la celda de al lado:
Sub ejemplo()
fila = 1
ruta = ActiveWorkbook.Path
destino = ActiveWorkbook.Name
ChDir ruta & "\"
archi = Dir("*.txt")
Do While archi <> ""
Open archi For Input As #1
contenido = Input(LOF(1), #1)
Workbooks(destino).Activate
Cells(fila, 1).Value = contenido
Cells(fila, 2).Value = archi
Close #1
fila = fila + 1
archi = Dir()
Loop
End Subno olvides finalizar la consulta
Hola luis,permíteme decirte que eres un monstruo,muchas gracias tio,te lo agradezco un montón,ah pero tengo que desconectar la unidad de red sino me importa lo de la raíz de la unidad que en mi caso es z ,porque carajo será eso?
