¿Cómo almacenar datos en excel en un archivo de acceso usando código vba?
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