Red de conocimiento informático - Material del sitio web - ¿Cómo almacenar datos en excel en un archivo de acceso usando código vba?

¿Cómo almacenar datos en excel en un archivo de acceso usando código vba?

A continuación se muestra el código que utilizo para importar datos de Excel a ACCESS. Para su referencia, debería ser posible hacer: (Excel y Access se colocan en una carpeta)

Mantenimiento del lote de suministro de precio normal del subcliente público ()

Si la celda (4 , 6) = ", luego

MsgBox "¡Seleccione el sistema cuyo precio debe mantenerse primero! ", información de VB

Celda (4, 6). Seleccionar

Conector de exportación

Otros

Dim I es un número entero, j es un número entero, k es un número entero, shtas hoja de trabajo'I, j, k es una variable entera; sht es una variable de objeto de hoja de trabajo de Excel que apunta a una hoja de trabajo

Dim cn se define como un nuevo ADODB. enlace el objeto y guarde la información de la base de datos de conexión; agregue primero la referencia de ADO.

Dim rs como un nuevo ADODB. "Conjunto de registros" define el objeto del conjunto de registros y guarda la cadena de datos, cadena strsqlas.

Atenuar mdbFile como cadena

Ir a add_err en caso de error

mdbFile = ActiveWorkbook." \DY_DATA. .mdb "

strCn = "Proveedor=Microsoft. Jet . OLEDB.4.0 data source = " amp "MdbFile" define la cadena de conexión de la base de datos.

Abrir strCn 'Establece una conexión a la base de datos y devuelve el objeto de conexión Cn si se realiza correctamente.

Establecer rs = Nuevo ADODB.RecordSet

RsOpen "Tabla DBL de cotización normal del cliente de ventas directas de DBL", CN, AdopenKeySet, AdlockOptimal

k = Cell(4, 8) ) 8

Para i = 9 a k

Si celda(I, 7) = ", entonces

Otros

rs . Agregar nuevo contenido

rs(1) = celda(I, 2)

rs(2) = celda(I, 7)

rs( 3) =celda(I,8)

rs. Actualizar

Celda(I, 7) = " "

Celda(I, 8) = " "

Terminará si...

Luego

MsgBox "¡Registro de datos agregado exitosamente!", Información de VB

Celda (4, 6). Seleccione

ActiveWorkbook. Actualizar lobby

Agregar salida:

Conector de salida

Terminará si...

Agregar error:

MsgBox Err() amp;vbCrLf amp;Error()

Reanudar Add_Exit

Finalizar conector