VBA Excel es un apoderosa herramienta que inclusive puede insertar datos desde un Userform a una tabla de una base de datos de Ms. access.
Ingresa a Excel y presiona la combinación Alt + F11:
Diseña un UserForm o formulario como el siguiente:
Vaya al menú Herramientas /Referencias/ Microsoft ActiveX data Objects 2.8
programa el botón de Insertar con el siguiente código VBA
Private Sub CommandButton1_Click()
Dim cs As String
Dim sPath As String
Dim sql As String
Dim cn As ADODB.Connection
sPath = ThisWorkbook.Path & "\datos.accdb"
cs = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sPath & ";Persist Security Info=False;"
Set cn = New ADODB.Connection
cn.Open cs
sql = "insert into estudiantes (id,nombre, apellido) values('" & TextBox1.Text & "', '" & TextBox2.Text & "','" & TextBox3.Text & "')"
cn.Execute sql
cn.Close
Set cn = Nothing
End Sub
excelente, funciona
ResponderEliminar