ant批量处理word文件内容_批量修改excel word 文件内容

展开全部

批量修改EXCEL word文件内容，可以用万能的32313133353236313431303231363533e58685e5aeb931333337623432VBA来实现。

下面这段代码是一个送奶站的应用中，根据每天送奶记录来计算订奶记录中累计已经送奶的数量。代码如下：

Sub 计算已送数量()

Const mYmax = 1000

Dim mYs As String

Dim I, J, K, L As Integer

Dim mYday As Date

Dim mYarr(1 To mYmax, 1 To 6)

Dim M_DNBH As String

Dim M_YSSL As Integer

Dim mYs1 As String

Dim mYs2 As String

mYs1 = "送奶记录"

mYs2 = "订奶记录"

Sheets(mYs1).Select

I = 2

Do While Len(Cells(I, 1)) > 0 '将送奶记录计入数组MYARR

For J = 1 To 6

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

Next J

I = I + 1

Loop

I = I - 2 'I记录了送奶的记录数

Sheets(mYs2).Select

J = 2 '记录当前行号

Do While Len(Cells(J, 1)) > 0

M_YSSL = 0

M_DNBH = Cells(J, 1)

For L = 1 To I

If M_DNBH = mYarr(L, 2) Then

M_YSSL = M_YSSL + mYarr(L, 6)

End If

Cells(J, 7) = M_YSSL

Next L

J = J + 1

Loop

End Sub

订奶记录表，如图：

送奶记录表，如图：