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.