Error en ruta al consultar en un excel nuevo

[lphant]

Buenos días;

 

Ayer me surgió un pequeño problema en la macro que estoy montando, os comento para ver si me podéis ayudar.

 

Al intentar hacer una consulta sql de un Excel nuevo ( sin guardar ) me está dando error en la ruta ( al no estar guardado no tiene ruta ) y no sé cómo ponerlo.

 

Esto es lo que he puesto pero sin éxito.

 

Excel_Nuevo = ActiveWorkbook.Name

RutaExcel = "Data Source=" & Workbooks(Excel_Nuevo).Path & "\" & Excel_Nuevo & ";Extended Properties=""Excel 12.0;HDR=Yes;"""

 

Adjunto excel.

 

Gracias y un saludo,

Libro3.xlsm

[Mauricio_ODN]

Hola

Intenta colocando estas líneas:

Set Excel_Nuevo = Workbooks.Add
Excel_Nuevo.Save
''MsgBox Excel_Nuevo.FullName
RutaExcel = "Data Source=" & Excel_Nuevo.FullName & ";Extended Properties=""Excel 12.0;HDR=Yes;"""

Salvara el libro, pero lo enviara por default a la carpeta de Documentos.

Espero sea de utilidad, Nos comentas, Saludos.

[lphant]

En 4/8/2020 at 16:48 , Mauricio_ODN dijo:

Hola

Intenta colocando estas líneas:

Set Excel_Nuevo = Workbooks.Add
Excel_Nuevo.Save
''MsgBox Excel_Nuevo.FullName
RutaExcel = "Data Source=" & Excel_Nuevo.FullName & ";Extended Properties=""Excel 12.0;HDR=Yes;"""

Salvara el libro, pero lo enviara por default a la carpeta de Documentos.

Espero sea de utilidad, Nos comentas, Saludos.

Gracias @Mauricio_ODN

Perdona por no contestarte antes, me fui de vacaciones (sin internet).

Mañana lo pruebo a hacer así, no quería guardarlo antes pero veo que la única solución.

Lo dicho, muchas gracias.

Un saludo,