Elegir la tabla de Access dependiendo de una valor de celda de Excel
Tras generar un código en Excel 2010 que me importe los datos de una tabla de Access 2010, quisiera que el nombre de la tabla de la que descarga los datos, variara según el nombre que tengo en una celda concreta, por ejemplo en A1.
Es decir si en "A1" el texto es " Delegaciones" que descargue los datos de la tabla "Delegaciones", pero si el valor de "A1" es "Técnicos" que descargue los datos de la tabla "Técnicos"
Os adjunto el código VBA
Sub escribirexcel()
Dim cs As String
Dim sPath As String
Dim sql As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
sPath = "D:\Pruebas access\Empresa.accdb"
cs = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sPath & ";Persist Security Info=False;"
Set cn = New ADODB.Connection
cn.Open cs
Set rs = New ADODB.Recordset
With rs
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
End With
sql = "select * from Delegaciones"
rs.Open sql, cn
Range("C1").CopyFromRecordset rs
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub