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.]

donsuae


Hola estimados usuarios de Universo Excel.
Tengo el sgte código:

Código:
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
        
       'Aquí está el problema !!!!!!
        'Else
         'Archivo.SkipLine
        
        End If
        
       
   
      Loop
    Close #2
    Archivo.Close
    Set fso = Nothing
    Set Archivo = Nothing
 

Actualmente  me busca lee cada linea del archivo, pero no logro hacer que cuando no encuentre un dato que yo deseo, se salte la linea del archivo que está leyendo.
Donde tengo citado los Else, no me sirve de la forma que lo coloco.


Alguien que me ayude?

De antemano,
Muchas Gracias.

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.