Problema de Excel: enlace una celda a la cantidad de documentos en un archivo

-1

Estoy tratando de actualizar una hoja de cálculo de Excel cuando se inserta un documento en un archivo.

Por ejemplo, tengo una carpeta llamada diario del día. Cada pocos días insertaré un documento de Word o un documento PDF en esta carpeta. Me gustaría que la hoja de cálculo de Excel reconozca que se ha incluido un documento en el archivo.

es posible?

VBA es bienvenido, sin embargo, no tengo experiencia en ello. (Dispuesto a aprender un poco)

¡Gracias por tu tiempo!

Estoy recibiendo comentarios negativos hacia mi pereza. Lo suficientemente justo. Por lo general, solo uso YouTube para mis respuestas. No era mi intención obtener un guión escrito para mí. Solo si lo que estaba preguntando era posible o si existe cierta función. Soy más que capaz de hacer el trabajo de piernas. Simplemente no sé por dónde empezar.

Si alguien puede ofrecer instrucciones, seguiré actualizando esta página con mi progreso. Estoy seguro de que podría ayudar a alguien más a buscar el mismo problema más adelante.

microsoft-excel microsoft-word microsoft-excel-2010 vba microsoft-excel-2013 Jason Harte
fuente

¿Crees que estamos aquí para hacer tu trabajo por ti? He votado para cerrar. Sin embargo, si edita su pregunta y muestra lo que ha intentado, entonces eliminaré mi voto

Dave,

Tenga en cuenta que Super User no es un servicio de escritura de scripts. Si nos dice qué ha intentado hasta ahora (incluidos los scripts que está utilizando) y dónde está atascado, entonces podemos intentar ayudarlo con problemas específicos. También deberías leer ¿Cómo hago una buena pregunta? .

DavidPostill

Respuestas:

Este script de VBA podría ayudarlo a:

Public Sub fileIndexer()
    'declaration of variables
    sheetname = "Sheet1"
    directory = "C:\users\johnsmith\documents"
    firstRow = 1
    dataColumn = 1
    'end of declaration of variables
    Dim wkb As Workbook
    Dim wks As Worksheet
    Set wkb = ThisWorkbook
    Set wks = wkb.Sheets(sheetname)
    wks.Columns(dataColumn).Clear
    myRow = firstRow
    myPath = Dir(directory)
    While (myPath <> "")
        wks.Cells(myRow, dataColumn) = myPath
        myRow = myRow + 1
        myPath = Dir
    Wend
    wks.Columns.AutoFit
End Sub

Abra VBA / Macros con ALT+ F11, en ThisWorkbook inserte un nuevo módulo y pegue el código en el lado derecho.

Ejecútelo haciendo clic en el triángulo verde.

También puede ejecutarlo paso a paso haciendo clic en la primera línea y luego presionando cada paso F8.

Hay una sección llamada declaration of variablesdonde debe colocar sus datos (nombre de la hoja y el directorio que se enumerará).

jcbermu
fuente