TE OLVIDASTE DE DECIR EN ESTE VIDEO QUE PARA QUE NO NOS DE ERROR SE DEBE PREVIAMENTE ACTIVAR LA FUNCION "SCRIPTING" LO HACES DESDE "REFERENCIAS" (ALT+H+R) : "MICROSOFT SCRIPTING RUNTIME. Gracias.
Excelente Video! En este ejemplo no se procesan subdirectorios y otra alternativa seria desde la consola usar el comando dir, redireccionar la salida a un archivo e importarlo a Excel
Hola muy bueno tu video, es pocible crear una macro para que abra un archivo llamado solapa que está en el escritorio, no importando si está escrito en mayúsculas o minúsculas?. Gracias saludos desde Chile.
Muy buen video, quisiera pedir de favor si se puede hacer la macro para que solo llame archivos de un mismo en mi caso tengo una carpeta donde hay Excel, pdf y XML yo solo quiero que me muestre la ruta de los archivos XML que tengo en esa carpeta. Saludos y gracias
Hay cosas que no comprendo, y busco los demás tutora les y nos los encuentro... Por ejemplo... Como cuentas cuántos archivos hay en una carpeta, de donde viene la ruta de la carpeta porque a mi no me funciona. Me colabora por favor
6 лет назад
Este es el link al vídeo donde cuentas los archivos: ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-shjweKkh5o0.html Esto debes hacer para crear la referencia a la librería: 1. Alt+F11 2. Alt+H+R 3. M 4. Buscar Microsoft Scripting Runtime 5. Barra espaciadora 6. Enter Este es el código para obtener las rutas: Código VBA: Private objeto As Scripting.FileSystemObject Private archivo As Scripting.File Private archivos As Scripting.Files Private carpeta As Scripting.Folder Sub OBTENER_ARCHIVOS(ruta As String) Set objeto = New FileSystemObject Set carpeta = objeto.GetFolder(ruta) Set archivos = carpeta.Files For Each archivo In archivos ActiveCell.Value = archivo ActiveCell.Offset(1, 0).Range("A1").Select Next archivo End Sub Sub LLAMAR_OBTENER_ARCHIVOS() Dim ruta As String ruta = Range("H5").Value Call OBTENER_ARCHIVOS(ruta) End Sub
En mi caso lo voy a usar para otra macro que me encuentra la ruta de unas carpetas y allí crear un archivo que a su vez será llenado con otra marco jaja
