Cómo usar Excel para administrar archivos
Puede importar nombres de archivos a EXCEL para facilitar la revisión y administración de archivos.
Al importar nombres de archivos a EXCEL, necesita usar VBA.
El siguiente es un ejemplo, espero que le resulte útil. Uso:
1. En la celda B1, debe importar la ruta de la carpeta del nombre del archivo. El método es el siguiente:
2. . Eso es todo.
El código específico es el siguiente:
Sub? Nombre de archivo de importación ()
Rango("A2:X10000")?=?"" p>
If?Range("B1")? =?""Entonces
MsgBox?"Ingrese la ruta de la carpeta del archivo que desea importar en la celda B1, ¡gracias!"
¿Salir?Sub
Fin?Si
Atenuar?fso,?luj,?wjs,?wj,?mz,?wb
Dim?n ?As?Integer
Set?fso?=?CreateObject("scripting. filesystemobject")
Set?luj?=?fso.getfolder(Cells(1, ?2). Texto)
Establecer?wjs?=?luj.Files
n?=?0
Para?Cada?wj?En?wjs
n?=?n? ?1
mz?=?wj.Name
Celdas(n? ?1,?1) ? =?n
Celdas(n? ?1,?2)? =?Celdas(1,?2).Texto?\mz
Celdas(n? ?1, ?3) = ?mz
Siguiente?wj
Si?n?lt;?2 Entonces
MsgBox?" No se encontró ningún archivo en esta ruta. por favor revise el archivo. ¿La ruta está configurada correctamente? ¡Gracias! "
¿Salir?