Importar datos Excel a Access con opción a elegir el archivo de cualquier ruta.

Espero puedan ayudarme.

Necesito importar datos excel desde un formulario access hacia una tabla a través de un comando. Encontré este buen aporte de un experto, pero quiero cambiarlo para elegir el archivo excel de cualquier ruta.

Gracias de antemano por la ayuda.

Aporte de Neckkito

Private Sub ...
Dim XlsRuta As String
Dim miSql As String
'Indicamos la ruta del Excel
XlsRuta = "c:\rutadelexcel\NombreExcel.xlsx"
'Importamos la hoja de cálculo a la tabla TExcel
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel7, "TExcel", XlsRuta, True
'Definimos la consulta de datos anexados
miSql = "INSERT INTO Tabla1 (Campo1, Campo2)"
miSql = miSql & " SELECT TExcel.Campo1, TExcel.Campo2 FROM TExcel"
'Ejecutamos la consulta
DoCmd.SetWarnings False
DoCmd.RunSQL (miSql)
DoCmd.SetWarnings True
'Borramos la tabla TExcel
DoCmd.DeleteObject acTable, "TExcel"
'Lanzamos un mensaje de que todo ha ido bien
MsgBox "Datos anexados correctamente", vbInformation, "OK"
End Sub