PROBLEMA AL QUERER EJEUTAR UNA COMSULTA DE ACCESS DESDE EXCEL

[politecnico123]

Muy buenas noches amigos soy nuevo en lo que concierne a Excel y Access, la consulta es la siguiente tengo una base de datos con tres tablas (LISTTABLAS, PROFESIONES, USUARIO). Y bueno hice una consulta en la base de datos para que me muestras el nombre de las tablas de dicha BASE y que lo guardara en la tabla LISTTABLAS y todo bien el detalle es que quiero ejecutar dicha consulta que hice en Access desde Excel y me sale un mensaje de error: “No tiene permiso para READ en MsysObjects” que es lo que tengo que hacer

tmp_21172-prueba190521887.rar

[Enigma25]

Hola @politecnico123

Para trabajar con las tablas de una base de datos se debe activar en el panel del editor de visual lo siguiente:

->Herramientas->Referencias->Microsoft Ado Ext 2.8 DDL and Security

y de alli creas las variables respctivas:

Public Cnn As ADODB.Connection
Public Rs As ADODB.Recordset
Public ocatalog As New ADOX.Catalog
Public Tablas As ADOX.Tables
Public Tabla  As ADOX.Table
Public I As Integer
Public Sql As String
Public Dato As String
Public C_Error As Boolean

La cadena de conexion y cierre respectivamente:

Sub Conecta()

Set Cnn = New ADODB.Connection
On Error GoTo Diana
    
    With Cnn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = "Data Source=" & ThisWorkbook.Path & "\PRUEBA.accdb": C_Error = True
        .Open
    End With
    Exit Sub
Diana:
    C_Error = False
    MsgBox Err.Description
End Sub
Sub Cerrar()
    If C_Error = True Then
        Cnn.Close
        Set Cnn = Nothing
    End If
End Sub

De todos modos te paso el archivo con dicha modificación.

Prueba2.xlsm