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

Añade tu respuesta

Haz clic para o