Jump to content

Error en ruta al consultar en un excel nuevo


Recommended Posts

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

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

  • 3 weeks later...
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,

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


×
×
  • Create New...

Important Information

Privacy Policy