RE:Exportar tabla que tenga la fecha actual
Create un cuadro combinado con el nombre de todas las tablas (cmbTabla), y un cuadro de texto para poner el nombre que quieras al archivo (txtNombreArchivo), luego en un boton de comando pon esto:
Private Sub BotonExportar_Click()
On Error GoTo errorExportar
Dim strNombreTabla As String
Dim strNombreArchivo As String
If IsNull(Me.cmbTabla) Or IsNull(Me.txtNombreArchivo) _
Or Me.cmbTabla = "" Or Me.txtNombreArchivo = "" Then
Exit Sub
End If
strNombreArchivo = Me.txtNombreArchivo & Format(Date, "ddmmyy")
strNombreTabla = Me.cmbTabla
DoCmd.Rename strNombreArchivo, acTable, strNombreTabla
DoCmd.OutputTo acTable, strNombreArchivo, "MicrosoftExcelBiff8(*.xls)", , False, "", 0
DoCmd.Rename strNombreTabla, acTable, strNombreArchivo
SalirError:
Exit Sub
errorExportar:
'si se cancela la exportación
If Err.Number = 2501 Then
Resume Next
'si no existe el objeto
ElseIf Err.Number = 7874 Then
MsgBox Space(30) & "No existe la tabla" & Space(30), , "Valor Invalido"
Me.cmbTabla.SetFocus
Resume SalirError
Else
MsgBox Err.Description, , "Error Nº: " & Err.Number
Resume SalirError
End If
End Sub
Lo que hace es cambiar el nombre de la tabla por la del archivo, para poder utilizar el objeto Docmd.OutputTo y exportar la tabla con diferente nombre.
Luego vuelve a poner el nombre original a la tabla.
Por eso, pruebalo antes en una BBDD de ejemplo. Yo lo he probado y solo he encontrado dos errores, que ya están tratados en el código.