Solución 16.9 Importar una tabla entera Access (con QueryTables)

Código de la importación:

Sub ImportRegBDaExcel()  
  Dim qtResultadoConsulta As QueryTable  
  Dim strSQL As String  
  Dim strConexion As String  
    
  Call Ruta  
  ’=========================================================   ...