Actividad pública reciente
Ha valorado "Excelente" la respuesta
Tengo en un excel varias filas y necesito hacer un txt por fila en forma simultanea.
Este código te servirá: Sub totxt() Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") Dim Fileout As Object Dim nombre As String, texto As String i = 1 j = 1 Do texto = Cells(j, 1).Value nombre = Cells(i, 2).Value If nombre = ""...