Navegar distintos archivos y actualizarlos a todos desde una macro

1 post / 0 nuevos
Marianela Ruatta
Imagen de Marianela Ruatta
Offline
última acción: Hace 1 semana 8 horas
alta: 18/08/2017 - 14:27
Puntos: 130
Navegar distintos archivos y actualizarlos a todos desde una macro

Buenos dias, tengo un conjunto de archivos que quiero actualizar. Basicamente todos los meses debo entrar uno por uno y correr la ultima columna para que me traiga informacion del mes actualizado. Me interesa crear una macro donde a travez de un bucle, recorra el listado de archivos y realice ese proceso sin necesidad de abrirlos uno por uno. 

Comencé haciendo esto:

 

Sub Actualizar()

'

 

    Dim SelectArchivo As String

    Dim ParaActualizar As Workbook

  

    Range("A2").Select

    SelectArchivo = ActiveCell.Value

    

    'Esta linea evita que parpadee la pantalla, por los procesos de cambio de hoja

    Application.ScreenUpdating = False

    

    'Abre el libro fuente 

    Workbooks.Open Filename:=ParaActualizar

    

    'A partir de esta linea se inicia un procesos repetitivo denomidado BUCLE, el mismo se repetira hasta

    'que la variable de un valor en BLANCO

    

    Do While SelectArchivo <> ""

    Sheets("Selección").Select

    

    NombreArchivo = Dir("C:\Users\u161280\Desktop\Prueba")

    

    'Seleciona una hoja y un rango

    Sheets("Hoja1").Select

    Selection.End(xlToRight).Select

    Range(Selection, Selection.End(xlDown)).Select

    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

    Range(Selection, Selection.End(xlDown)).Select

    Selection.AutoFill Destination:=Columns("D:E"), Type:=xlFillDefault

    Columns("D:E").Select

    Columns("E:E").Select

    Calculate

    Range("E1").Select

    ActiveWorkbook.Save

    ActiveWorkbook.Close

    

    Loop

 

End Sub

Tengo problema con Workbooks.Open Filename:=ParaActualizar, me dice "Variable de objeto o bloque with no establecido"

Los archivos son:

ParaActualizar ---> Excel donde pondré el listado de archivos que debe buscar y actualizar

Excel1, Excel 2 y Excel 3 son los archivos que debe correr la formula y guardarlo.

He utilizado esto a modo de ejemplo, ya que los archivos originales tienen nombres mas largos y una vez que entienda el proceso lo replicaré modificando los datos.

 

Muchas gracias!!

 

Etiquetas: