Sumar archivos de una carpeta
Quisiera saber si conocéis alguna manera que al abrir un archivo excel se coloque en una celda la suma de archivos .pdf de otra carpeta más uno
1 Respuesta
Respuesta de Dante Amor
1
Utiliza la siguiente macro. Cambia los datos de carpeta, hoja y celda por tus datos
Sub Contar_Pdf()
Dim arch As Variant
Dim ruta As String
Dim n As Long
'
ruta = "C:\trabajo\"
arch = Dir(ruta & "*.pdf")
'
Do While arch <> ""
n = n + 1
arch = Dir()
Loop
Sheets("Hoja1").Range("A1").Value = n + 1
End SubSi quieres que se ejecute en automático, llama la macro desde el evento Open.
