Estando en acces, cerrarlo y pasar control a libro de Excel
Publicado por cpjcarlos (14 intervenciones) el 04/05/2012 21:00:53
1.-En Access 2007 tengo un form en donde elijo opciones luego ejecuto una consulta y esta crea una tabla que se llama datos
2.-En Excel realice una conexion a esta tabla y de ahi realice 3 tablas dinámicas con varios campos
Lo que hago ahora es que ejecuto la consulta en access luego cierro acces y abro el archivo de excel y todo correcto se "carga" la información de la tabla vinculada y actualizo mis tablas dinamicas y todo perfecto. pero No puedo abrir este archivo de excel sin cerrar la base de datos donde ejecuto mi consulta porque me salen varios mensajes "autentificando" la conexión y finalmente no se logra
lo que me gustaria hacer que mediante codigo luego de ejecutar mi consulta cerrar Access y ordenar que se abra el mencionado archivo de excel .. de la forma en que lo estoy intentando obvianente no es posible...
....'codigo que ejecuta consulta del form y crea la tabla datos
Consulta.Execute
DoCmd.Quit 'cierra access
'intento que abra el archivo de excel
Dim strLibro As String, xls As Object ' Excel.Application
' abro una instancia de Excel
Set xls = CreateObject("Excel.Application")
strLibro = "\\172.25.17.54\Tarifas\Consulta\CompXAño.xlsm"
xls.Workbooks.Open (strLibro)
¿Alguna otra forma desde Access de cerrarlo y luego abrir archivo de excel?
alguien me puede apoyar por favor. Gracias
2.-En Excel realice una conexion a esta tabla y de ahi realice 3 tablas dinámicas con varios campos
Lo que hago ahora es que ejecuto la consulta en access luego cierro acces y abro el archivo de excel y todo correcto se "carga" la información de la tabla vinculada y actualizo mis tablas dinamicas y todo perfecto. pero No puedo abrir este archivo de excel sin cerrar la base de datos donde ejecuto mi consulta porque me salen varios mensajes "autentificando" la conexión y finalmente no se logra
lo que me gustaria hacer que mediante codigo luego de ejecutar mi consulta cerrar Access y ordenar que se abra el mencionado archivo de excel .. de la forma en que lo estoy intentando obvianente no es posible...
....'codigo que ejecuta consulta del form y crea la tabla datos
Consulta.Execute
DoCmd.Quit 'cierra access
'intento que abra el archivo de excel
Dim strLibro As String, xls As Object ' Excel.Application
' abro una instancia de Excel
Set xls = CreateObject("Excel.Application")
strLibro = "\\172.25.17.54\Tarifas\Consulta\CompXAño.xlsm"
xls.Workbooks.Open (strLibro)
¿Alguna otra forma desde Access de cerrarlo y luego abrir archivo de excel?
alguien me puede apoyar por favor. Gracias
Valora esta pregunta
0