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.
