Guardar archivo txt solicitando el nombre

Puedes usar un InputBox para pedir el nombre, por ejemplo:

Dim elNombre As string

elNombre= Inputbox("Escribe un nombre para el archivo")

If StrPtr(elNombre)=0 Then

MsgBox "Operacion cancelada"

Exit Sub

End if

DoCmd.transferir acExportDelim, "importAc", "ac", "d:\archivoAccess\ac" & elNombre & ".txt"

Lo que no acabo de entender es lo que pretendes hacer cuando dices: y que aplique al tiempo a las demás tablas

Un saludo.

Buenas tardes, es que tengo más instrucciones cómo la de arriba con otro nombre de tablas, pise la instrucción que me envió pero me genera error de compilación: se esperaba fin de la instrucción y me resalta ac "&elNombre&".txt y se resalta. Toda la línea en rojo.

Gracias por la ayuda

Tienes que dejar los espacios en su sitio, entre el & y las comillas, y entre el & y el nombre de la variable.

Si quieres ponerle el mismo "sufijo" a todos los archivos, solo has de repetir la línea de la exportación las veces que sean necesarias:

DoCmd.transferir acExportDelim, "importAc", "ac", "d:\archivoAccess\ac" & elNombre & ".txt"

DoCmd.transferir acExportDelim, "importBc", "bc", "d:\archivoAccess\bc" & elNombre & ".txt"

DoCmd.transferir acExportDelim, "importCc", "cc", "d:\archivoAccess\cc" & elNombre & ".txt"

Se me olvidó mencionarte que el texto que escribas tiene que cumplir las reglas de los nombres de archivos de Windows, es decir, no llevar signos extraños (<>/...)

¡Gracias! Por su ayuda me funciono bien