Con esta macro pueden abrir todos los archivos de un directorio, procesarlos y cerrarlos.<\/p>\n
\nSub RevisaDirectorio()\n Dim ruta As String\n Dim siguienteArchivo As String\n Dim libro As Workbook\n Dim m\u00e1scara As String\n \n ruta = InputBox(\"\u00bfQu\u00e9 directorio proceso?\")\n \n ruta = ThisWorkbook.Sheets(\"Portada\").Range(\"RutaDirectorio\")\n If Dir(ruta, vbDirectory) = \"\" Then\n MsgBox \"El directorio no existe.\"\n Else\n ' Si el usuario no le dej\u00f3 la diagonal inversa al final al directorio, se la agrega.\n If Right(ruta, 1) <> \"\\\" Then ruta = ruta & \"\\\"\n \n ' Aqu\u00ed le agrega la extensi\u00f3n de los archivos que quiere revisar.\n m\u00e1scara = \"*.xls*\"\n ' Obtiene el primer archivo que est\u00e1 en esa ruta con esa m\u00e1scara.\n siguienteArchivo = Dir(ruta & m\u00e1scara)\n \n ' Cuando ya no encuentra el archivo, regresa \"\"\n Do While siguienteArchivo <> \"\"\n Set libro = Workbooks.Open(ruta & siguienteArchivo)\n \n ' Aqu\u00ed es donde pueden indicarle qu\u00e9 hacer con el archivo.\n ' Yo nada m\u00e1s aviso que abr\u00ed el archivo.\n MsgBox \"Abr\u00ed el archivo \" & ActiveWorkbook.Name\n \n \n \n \n \n ' Si no dejo de copiar, pregunta que si quiero conservar el portapapeles antes de cerrar el archivo.\n Application.CutCopyMode = xlCopy\n ' Le digo que lo cierre sin grabarlo.\n libro.Close (False)\n ' Toma el siguiente archivo. Para eso, la funci\u00f3n Dir() no lleva par\u00e1metros esta vez.\n siguienteArchivo = Dir()\n ' libera el apuntador al libro\n Set libro = Nothing\n Loop\n End If\nEnd Sub\n<\/pre>\n","protected":false},"excerpt":{"rendered":"Con esta macro pueden abrir todos los archivos de un directorio, procesarlos y cerrarlos. Sub RevisaDirectorio() Dim ruta As String Dim siguienteArchivo As String Dim libro As Workbook Dim m\u00e1scara As String ruta = InputBox(“\u00bfQu\u00e9 directorio proceso?”) ruta = ThisWorkbook.Sheets(“Portada”).Range(“RutaDirectorio”) …<\/p>\n