SoloCodigo

En la misma base de datos access tengo el código que anoto a continuación que utilizo para ir importanto datos de ficheros de texto mientras existe uno pendiente de procesar.
 
Quizá ello ayude a prepararme el código para lo que necesito ya que por lo que comentan en distintos foros hay ejecutar la importación dentro del Do Wile... Loop lo que pretendo hacer ahora es ir abriendo los excel generados, ejecutar una macro que tengo en el libro personal, cerrar el fichero y enviar a otra carpeta.

Necesito la ayuda porqué no tengo ni idea de como abrir excel después de cada dir ejecutar la macro y salvar.
 
El código:
 
Private Sub Comando1_Click()
On Error GoTo Err_Comando1_Click
    Dim stDocName As String
    Dim MiArchivo, MiRuta, MiNombre, miCADENA, misql
' Muestra los nombres en D:\ que representan directorios.
MiRuta = "D:\fic\"    ' Establece la ruta.
MiNombre = Dir(MiRuta, vbArchive + vbHidden + vbNormal + vbReadOnly + vbSystem + vbVolume)
miCADENA = Dir("D:\fic\X" & "*", vbNormal)
Do While MiNombre <> ""    ' Inicia el bucle.
If Mid(MiNombre, 1, 1) = "X" Then
 
"ENTIENDO QUE AQUÍ ENTRARIA EL CÓDIGO QUE NECESITO"
           
           
            End If
        End If
        Name "D:\fic\" & MiNombre As "D:\fic\copias\" & "XEX01" & MiNombre
 
        MiNombre = Dir     ' Obtiene siguiente entrada.
    Loop
 
Exit_Comando1_Click:
    Exit Sub
Err_Comando1_Click:
    MsgBox Err.Description
    Resume Exit_Comando1_Click
   
End Sub
 
Gracias por anticipado.
 
Feliz año.