UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 Macro lee archivo txt y comprueba el 08/05/14, 01:25 pm

donsuae


Hola estimados Usuarios de Universo Excel,

Tengo un código el cuál va comparando un valor de una celda con el contenido de un .txt.
Lo que no logro hacer es que cuando no encuentre nada o que lo que busque no se encuentre en el txt, lo salte o lo deje en blanco. Porque ahora con este código, cuando no encuentra lo que busca en el txt, se cae.

Les dejo el código:


Código:
Set fso = CreateObject("Scripting.FileSystemObject")

Set Archivo = fso.OpenTextFile(ArchivoU, 1)


     
     
      Open "temporal.txt" For Output As #2
      'Encabezado = Archivo.readline()
      'Print #2, Encabezado
      Do While Archivo.AtEndOfStream <> True
        Linea = Archivo.ReadLine()
        If Linea Like busqueda Then
          Print #2, Linea
       
        ''''''''''SALTAR LINEA CUANDO NO ENCUENTRA USERID ''''''''''''''''
        'Else
        'Archivo.SkipLine
       
        End If
       
   
      Loop
    Close #2
    Archivo.Close
    Set fso = Nothing
    Set Archivo = Nothing



Saludos
Gracias de antemano.

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.