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 p>
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: