Importar hojas Excel con nombres diferentes

Tengo un archivo Excel que aunque se actualiza cada mes, siempre se llama igual y se encuentra en la misma ruta.
Este archivo contiene una única hoja, que siempre se llama de manera diferente, porque se genera con la fecha de download.

Archivo:  Nombre_archivo.xlsx    
hoja:     download_20200218

El siguiente mes, el archivo se llamará igual, pero la hoja tendrá un nombre diferente:

Archivo:  Nombre_archivo.xlsx    
hoja:     download_20200318

y así sucesivamente.

Deseo importar cada mes este mismo archivo creando en Access siempre una tabla nueva que se llame igual que la hoja Excel.

Por ejemplo, las tablas Access deberían llamarse:

download_20200218
y
download_20200318

¿Cómo puede hacerse esto?
Agradezco de antemano la ayuda

Hola Xavi.

Gracias por tu respuesta.

Efectivamente, con ese método es posible importar el archivo.

Mi problema: lograr que la tabla a generarse sea nombrada dinámicamente. El archivo de origen se llamará siempre igual y estará siempre ubicado siempre en el mismo lugar, pero la tabla Access importada debe llamarse tal como la hoja Excel (Excel sheet/Worksheet) se llame en el momento de la importación. Eso no lo consigo

¿Cómo modificar el siguiente código (que funciona, pero que nombra a la tabla tal como se llama el archivo y no la hoja -siempre hay en el archivo Excel una hoja única-) para lograr lo que deseo?

Dim PATH As String

PATH = "C:\Archivo.xlsx"

 

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, PATH, True

Exit Sub

 

Editado por Peter - 19/Febrero/2020 a las 10:12

Hola Maverick.

Gracias por tu intervención.

El nombre del archivo a importar es fijo (Archivo.xlsx), el nombre de la hoja Excel a importar es variable y se genera automáticamente, es decir: ya está disponible a la hora de querer realizar la importación y nunca se repite. No le veo sentido a crear en Access un nombre que ya está disponible como nombre de la hoja Excel a importar (para mayor explicación mira, por favor, el texto de mi pregunta). ¿O he entendido mal tu idea? Lo que deseo, es que al importar se utilice el nombre de la hoja Excel para nombrar así a la tabla Access importada.

El archivo se selecciona automáticamente.  Seleccionarlo a mano sería poco práctico ya que está siempre en la misma ruta y se llama siempre igual. Los criterios los puedes ver el código escrito en mi intervención anterior.

Te pongo otra forma para poder sacar el nombre de la hoja del fichero Excel:

Sub SacarNombreHojasFicheroExcel() Dim FicheroExcel As String FicheroExcel = CurrentProject.Path & "\archivo.xlsx" Dim objExcel As Object Dim ObjW As Object         Set objExcel = CreateObject("Excel.Application") Set ObjW = objExcel.Workbooks.Open(FicheroExcel) 'objExcel.Visible = True 'lo hacemos visible objExcel.Visible = False 'lo hacemos invisible Dim i As Integer, x As Integer      x = ObjW.Sheets.Count For i = 1 To x 'Te enumera las distintas hojas del Libro excel    Debug.Print ObjW.Sheets(i).Name Next ObjW.Close SaveChanges:=False Set ObjW = Nothing objExcel.Quit Set objExcel = Nothing End Sub

Editado por fcoval - 20/Febrero/2020 a las 09:34

Teniendo en cuenta que « Este archivo contiene una única hoja... », el nombre es tan sencillo como:

nombre = worksheets(1).name