Macro con Vba Excel para importar archivos

Macros para importar tipos de archivos codigo

Sub contenido_carpeta()
'seccion1 variables a utilizar en la macro
Dim carpeta, archivo As String
Dim contador As Integer

'seccin 2: lectura de carpeta y ajustes necesarios
carpeta = InputBox("ingresa la ruta de la carpeta a importar:")

If carpeta = "" Then
Exit Sub
ElseIf Right(carpeta, 1) <> "\" Then
carpeta = carpeta & "\"
End If

'seccion 3: preparacion de variables

Do While Len(archivos) > 0
ActiveSheet.Cells(contador, 1).Value = archivos
archivos = Dir()
contador = contador + 1
Loop

End Sub