批量修改excel word 文件内容
对不起,我没有说清楚
现在有很多excel文件,word文件 需要修改相同的内容,请问如何解决或者有什么工具解决 展开
2015-11-06 · 知道合伙人软件行家
批量修改EXCEL word文件内容,可以用万能的VBA来实现。
下面这段代码是一个送奶站的应用中,根据每天送奶记录来计算订奶记录中累计已经送奶的数量。代码如下:
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
订奶记录表,如图:
送奶记录表,如图:
2024-07-20 广告
对于Excel,还没听说有现成的工具,不过Excel工具箱软件能实现对多个Excel表格的合并
如果能合并到一起,替换应该也容易多了
录制宏当然可以,不过那也需要把每个文件打开一次并运行宏才能实现
如将全文中的“点”全部换成“面”则:按CTRL+F,将查找中填写“点”将替换为一项写入“面”,点击确定即可。