Red de conocimiento informático - Aprendizaje de código fuente - Modificar por lotes el contenido de archivos EXCEL Word

Modificar por lotes el contenido de archivos EXCEL Word

Utilice el versátil VBA para modificar por lotes el contenido de archivos de Word EXCEL.

El siguiente código es una aplicación de estación de entrega de leche que se utiliza para calcular la cantidad acumulada de leche entregada en función de los registros de entrega diaria de leche en los registros de pedidos de leche. El código es el siguiente:

Sub Calcular cantidad entregada()

Const mYmax = 1000

Atenuar mYs como cadena

Atenuar I , J, K, L como entero

Atenuar mYday como fecha

Atenuar mYarr(1 a mYmax, 1 a 6)

Atenuar M_DNBH como cadena

Atenuar M_YSSL como entero

Atenuar mYs1 como cadena

Atenuar mYs2 como cadena

mYs1 = "Registro de entrega de leche"

mYs2 = "Registro de pedido de leche"

Sheets(mYs1).Select

I = 2

Hacer mientras Len(Cells(I, 1)) > 0 'Incluye registros de entrega de leche en la matriz MYARR

Para J = 1 a 6

mYarr(I - 1, J) = Celdas(I, J)

Siguiente J

I = I + 1

Bucle

I = I - 2 'I Registra el número de registros de entrega de leche

Hojas (mYs2).Seleccione

J = 2 'Registrar el número de línea actual

Hacer mientras Len(Cells(J, 1)) > 0

M_YSSL = 0

M_DNBH = Celdas(J, 1)

Para L = 1 a I

Si M_DNBH = mYarr(L, 2) Entonces

?M_YSSL = M_YSSL + mYarr(L, 6)

Fin si

Celdas(J, 7) = M_YSSL

Siguiente L

J = J + 1

Bucle

End Sub

Hoja de registro de pedidos de leche, como se muestra en la figura:

Tabla de registro de entrega de leche, como se muestra en la figura: