Celdas pierden referencia al actualizar la Tabla desde Access
publicado
Saludos,
Tengo formulas en varias celdas que se alimentan de una Tabla llamada TablaSubAlim la cual reside en el mismo Workbook.. Sin embargo ahora he tenido la necesidad que esta tabla se alimente desde una Tabla que está en Access. Con este código logré hacer esa conexion de manera automática.
'Private Sub Worksheet_Activate()
'Application.ScreenUpdating = False
'Dim l As ListObject
'Dim q As QueryTable
'Dim s As String
'
'
''CONEXION A LA BASE DE DATOS
'Cells.Delete
's = "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Jet OLEDB:Database Password="" ;Data Source="
's = s & "\\DATABASE_TABLASUBALIM\DatabaseTablaSubAlim.accdb"
'Set l = ActiveSheet.ListObjects.Add(xlSrcExternal, s, , xlYes, ActiveSheet.Cells(1, "A"))
'Set q = l.QueryTable
'q.SavePassword = False
'q.CommandType = xlCmdTable
'q.CommandText = "TablaSubAlim"
'q.Refresh
La tabla actualiza de manera automática pero las celdas que tienen formulas haciendo referencia al nombre de TablaSubAlim pierden la referencia. ¿Como puedo hacer que la tabla actualice pero que las celdas no pierdan la referencia?
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Saludos,
Tengo formulas en varias celdas que se alimentan de una Tabla llamada TablaSubAlim la cual reside en el mismo Workbook.. Sin embargo ahora he tenido la necesidad que esta tabla se alimente desde una Tabla que está en Access. Con este código logré hacer esa conexion de manera automática.
'Private Sub Worksheet_Activate()
'Application.ScreenUpdating = False
'Dim l As ListObject
'Dim q As QueryTable
'Dim s As String
'
'
''CONEXION A LA BASE DE DATOS
'Cells.Delete
's = "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Jet OLEDB:Database Password="" ;Data Source="
's = s & "\\DATABASE_TABLASUBALIM\DatabaseTablaSubAlim.accdb"
'Set l = ActiveSheet.ListObjects.Add(xlSrcExternal, s, , xlYes, ActiveSheet.Cells(1, "A"))
'Set q = l.QueryTable
'q.SavePassword = False
'q.CommandType = xlCmdTable
'q.CommandText = "TablaSubAlim"
'q.Refresh
La tabla actualiza de manera automática pero las celdas que tienen formulas haciendo referencia al nombre de TablaSubAlim pierden la referencia. ¿Como puedo hacer que la tabla actualice pero que las celdas no pierdan la referencia?