De access a excel
Hola expertos, estoy haciendo un trabajo para guardar datos de excel a access. Y quiero saber si se puede crear listas desplegables en excel con datos provenientes de tablas de access. Tengo entendido que se hace mediante programación,, pero no se como quedaría. Gracias por la ayuda.
1 Respuesta
Respuesta de Abraham Valencia
1
Pues, pasa usar una lista desplegable de validación, necesariamente tendrías que importar los datos a alguna hoja de Excel. Intenta con un Combobox de controles:
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = New ADODB.Connection
With cnn
.Provider = "microsoft.jet.oledb.4.0"
.ConnectionString = "data source=S:\Casos_DC\Casos_DC1.mdb"
.Open
End With
Set rst = New ADODB.Recordset
With rst
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "select NombreTabla.NombreCampo from NombreTabla", cnn, , , adCmdText
End With
Do
Combobox1.AddItem rst.Fields!NombreCampo.Value
rst.MoveNext
Loop Until rst.EOF
Set rst = Nothing
Set cnn = Nothing
OJO, en el editor de VBA, hay que activar la referencia: "Microsoft ActiveX Data Object xx.xx Library"
Abraham
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = New ADODB.Connection
With cnn
.Provider = "microsoft.jet.oledb.4.0"
.ConnectionString = "data source=S:\Casos_DC\Casos_DC1.mdb"
.Open
End With
Set rst = New ADODB.Recordset
With rst
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "select NombreTabla.NombreCampo from NombreTabla", cnn, , , adCmdText
End With
Do
Combobox1.AddItem rst.Fields!NombreCampo.Value
rst.MoveNext
Loop Until rst.EOF
Set rst = Nothing
Set cnn = Nothing
OJO, en el editor de VBA, hay que activar la referencia: "Microsoft ActiveX Data Object xx.xx Library"
Abraham
