Macro contador de archivos de ruta origen

Hola heber:
Mira si el código de este botón que yo creé para
mostrar en un mensaje emergente el número de archivos
de la ruta origen, te vale como ejemplo de lo que necesitas.


Private Sub CommandButton1_Click()
Dim Cant_Fich As Integer, Ruta_O As String
Ruta_O = Dir(ActiveWorkbook.Path & "\*.*")
Do While Ruta_O <> ""
Cant_Fich = Cant_Fich + 1
Ruta_O = Dir
Loop
If Cant_Fich > 0 Then MsgBox Cant_Fich
End Sub


Saludos.-


"heber" escribió en el mensaje de
noticias news:

¡ Hola !
Amigos no se si me pueden ayudar, necesito tener el codigo que cuente la
cantidad de archivos que existe en mi ruta origen para luego poder
importarala
y
procesarla en el VBA, solo me falta el contador ya que la importacion ya
algunos
calculos ya lo e realizado