Red de conocimiento informático - Material del sitio web - Cómo usar Excel para administrar archivos

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")?=?""

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?