25/02/2008, 11:47
|
| Usuario no validado | | Fecha de Ingreso: mayo-2006
Mensajes: 42
Antigüedad: 18 años Puntos: 0 | |
| Re: Problema con excel y macros
Sub Listado_archivos()
Dim Ruta As String, Nombre As String, i As Integer
Ruta = Application.ActiveWorkbook.Path + "\*.xls"
Nombre = Dir(Ruta)
i = 1
Do While Nombre <> ""
Cells(i, 1) = Nombre
i = i + 1
Nombre = Dir
Loop
End Sub |