Importar libro de excel sin nombre definido

Para importar la hoja "EXPORTA" de un libro de Excel sin especificar un nombre específico para el libro, puedes hacer uso de la función Dir para buscar todos los archivos en un directorio que cumplan con ciertas características, como tener la extensión ".xlsx" y contener la hoja "EXPORTA". Aquí tienes una modificación de tu código que implementa esta funcionalidad:

Private Sub CmdImpProgEmit_Click()
    Dim FileName As String
    Dim FilePath As String
    Dim file As String
    ' Ruta del directorio donde se encuentran los archivos de Excel
    FilePath = CurrentProject.Path & "\"
    ' Requiere referencia a Microsoft Office 11.0 Object Library.
    Dim fDialog As Office.FileDialog
    Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
    With fDialog
        .InitialFileName = FilePath
        .InitialView = msoFileDialogViewDetails
        .AllowMultiSelect = False
        .Title = "Seleccione el archivo"
        .Filters.Clear
        .Filters.Add "Archivos de Excel", "*.xlsx"
        If .Show = True Then
            FileName = .SelectedItems(1)
        Else
            MsgBox "Ha cancelado la operación.", vbInformation, "Importar Excel a Access"
            Exit Sub
        End If
    End With
    If Len(FileName) > 0 Then ' Comprobamos que se haya seleccionado correctamente el archivo.
        file = Dir(FilePath & "*.xlsx")
        Do While Len(file) > 0
            If InStr(file, "EXPORTA") > 0 Then ' Verificar si el archivo contiene la hoja "EXPORTA"
                DoCmd.TransferSpreadsheet acImport, 10, "EXPORTA_tmp", FilePath & file, True, "EXPORTA!"
                If Err.Number = 0 Then
                    MsgBox "Hojas importadas OK", vbInformation, "Le informo"
                End If
                Exit Do
            End If
            file = Dir
        Loop
        If Len(file) = 0 Then
            MsgBox "No se encontró ningún archivo que contenga la hoja 'EXPORTA'.", vbInformation, "Importar Excel a Access"
        End If
    Else
        MsgBox "No ha seleccionado un archivo para procesar.", vbInformation, "Importar Excel a Access"
    End If
End Sub

Hola amigo, dice que "no se encontró ningún archivo que contenga la hoja EXPORTA"

 yo uso Microsoft Office 15.0 Object Library, imagino que no tiene nada que ver