1

Buen tarde comunidad,

Tengo el siguiente macro lo que hace es copiar todos los archivos .txt que se encuentren dentro de su misma carpeta, toma la segunda columna de cada archivo y la copia a una hoja de excel columna por columna de forma consecutiva al momento de copiar me muestra una ventana que me dice que hay demasiados datos y me pregunta si los quiero almacenar dándome 3 opciones, lo que quiero saber es como puedo quitar esa ventana y lo haga de modo automático.

Adjunto el macro:

Sub Macro_lectura()
mio = ActiveWorkbook.Name
ruta = ActiveWorkbook.Path
ChDir ruta & "\"
archi = Dir("*.txt")
Do While archi <> ""
Workbooks.OpenText archi, origin:=xlWindows, startrow:=1, DataType:=xlDelimited
otro = ActiveWorkbook.Name
Range("b1:b" & Range("b65000").End(xlUp).Row).Copy
Workbooks(mio).Activate
Range("av2").End(xlToLeft).Offset(0, 1).Select
ActiveSheet.Paste
Workbooks(otro).Close False
archi = Dir()
Loop
ActiveSheet.Columns("a:a").EntireColumn.Delete
MsgBox "proceso terminado"
End Sub

Saludos cordiales.

3
  • No creo que funcione, pero prueba con Application.DisplayAlerts = False.y luego cuando ya termine todo el código vuelve a activarlas con Application.DisplayAlerts = True
    – Esei
    Commented el 20 feb. 2019 a las 1:24
  • Hola Elier , pues efectivamente funciono te agradesco la atencion Suldos. Commented el 20 feb. 2019 a las 1:56
  • Estupendo, lo pongo como respuesta
    – Esei
    Commented el 21 feb. 2019 a las 17:35

1 respuesta 1

0

prueba con Application.DisplayAlerts = False.y luego cuando ya termine todo el código vuelve a activarlas con Application.DisplayAlerts = True

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.