Cómo leer y escribir tablas EXCEL con VB
Debido a que ADO no admite la eliminación de tablas de Excel
Utilice el método Excel+access para resolver este problema
Cree un nuevo acceso y agregue dos tablas en el acceso , una tabla "actual" y una tabla "renunciada" (la clave principal se establece en el número de empleado)
En Excel, presione Ctrl+F11 para abrir el editor vbe e insertar el formulario
Presione Los siguientes pasos crean el control correspondiente
El punto más importante es que este control no se utilizará para leer y escribir formularios EXCEL con VB
El punto más importante es que este control no se usará con VB Lectura y escritura de formularios EXCEL
El punto más importante es que este control no se usará para leer y escribir formularios EXCEL usando VB
.
Haga doble clic en el editor vbe e inserte el formulario
Siga los siguientes pasos para crear el control correspondiente
El punto más importante es cambiar el nombre del atributo del cuadro de texto a "Trabajo", "Nombre", "Departamento" ", "Grupo de segundo nivel", "Equipo de tercer nivel", porque el código es requerido
¿Después de crearlo? Haga doble clic en el formulario y copie el siguiente código en la ventana de código
Atenuar Con como objeto
Atenuar primero como objeto
Atenuar Sql como cadena
Atenuar FieldArr
Const ProvidSr$ = "provider= microsoft.jet. oledb.4.0;data source="
Private Sub CommandButton1_Click()
Dim FieldSr$, ValueSr$, x%
Si WorkNumber.Text = "" Entonces MsgBox "Número de trabajo requerido": Salga de Sub
Para x = 0 a 4
FieldSr = FieldSr & FieldArr(x ) & ", "
ValueSr = ValueSr & Me.Controls(FieldArr( x)).Text & "', '"
Siguiente paso
FieldSr = Left(FieldSr, Len(FieldSr) - 2)
ValueSr = Left(ValueSr, Len(ValueSr) - 3)
Sql = " Insertar en el titular (" & FieldSr & ") VALUES('" & ValueSr & ")"
Con.Execute Sql
MsgBox "Operación completada"
End Sub
Private Sub CommandButton2_Click()
Dim Wsr$, TBox$
Para x = 0 a 1
TBox = Me.Controls(FieldArr(x)) .Text
Si TBox <> "" Entonces Wsr = Wsr & FieldArr(x) & "='" & TBox & "' o "
Siguiente
If Wsr = "" Then MsgBox "Ingrese el número o nombre del trabajo": Salir Sub
Wsr = Left(Wsr, Len( Wsr) - 4)
If MsgBox( "¿Está bien eliminar? Ejecutar Sql
MsgBox "Operación completada"
Finalizar si
End Sub
Sub privado UserForm_Initialize()
Dim AccPath$
FieldArr = Array("Número de posición", "Nombre", "Departamento", "Segundo grupo", "Tercer grupo")
Establecer Con = CreateObject("adodb.connection")
AccPath = "d:/ Database/data.MDB" ?'''' en
Establezca aquí la ruta de la base de datos
Con.Open ProvidSr & AccPath
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Set Con = Nothing
End Sub
¿Está bien? Ejecútalo
¿Cómo usar vba en Excel? Si quieres hacer software vb, los pasos en vb son los mismos
¿El código es el mismo que el anterior? Solo el nombre del control es un poco diferente.