求一个批量导入替换内容的代码

466798177 · 发表于 2021-5-11 16:08

模板中固定内容格式

XXXXXXXX

XXXX	XXXX：	日期：
XXXXX	数量： (需要填入数据	XXXXX

文件夹里已有上百个文件，需要重新导入一行excel数据填入同一个地方

约定的童话 · 发表于 2021-5-12 08:50

目测用VBA可以实现，你得先把附件发过来

466798177 · 发表于 2021-5-12 09:37

此为样板，感谢大神帮忙

466798177 · 发表于 2021-5-12 09:38

约定的童话发表于 2021-5-12 08:50
目测用VBA可以实现，你得先把附件发过来

已上传，谢谢大神关注

约定的童话 · 发表于 2021-5-12 09:45

具体要求呢？哪个替换为哪个？源数据是哪一列？

466798177 · 发表于 2021-5-12 09:56

约定的童话发表于 2021-5-12 09:45
具体要求呢？哪个替换为哪个？源数据是哪一列？

替换工件数量这一格，能弄一个通用匹配替换么，我选定哪一个内容替换，就自动换成一列数，源数据哪一列都行，我可以自己重新做

约定的童话 · 发表于 2021-5-12 11:09

466798177 发表于 2021-5-12 09:56
替换工件数量这一格，能弄一个通用匹配替换么，我选定哪一个内容替换，就自动换成一列数，源数据哪一列都 ...

可以的，要提前设计好模板

466798177 · 发表于 2021-5-12 13:45

约定的童话发表于 2021-5-12 11:09
可以的，要提前设计好模板

分享一下呗

约定的童话 · 发表于 2021-5-12 14:18

466798177 发表于 2021-5-12 13:45
分享一下呗

Sub 替换()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim i, m As String, arr, Word As Object, F
arr = [a1].CurrentRegion
Set Word = VBA.CreateObject("word.application")
Word.Visible = 1
For i = 2 To UBound(arr)
      If arr(i, 1) <> "" Then
         F = ThisWorkbook.Path & "\" & arr(i, 1)
         With Word.Documents.Open(F)
            .Content.Find.Execute FindText:=arr(i, 2), ReplaceWith:=arr(i, 3) '查找替换
         End With
         Word.Documents.Close True
      End If
Next
Word.Application.Quit
Set Myword = Nothing
MsgBox "替换完毕！", 48, "提示！"
End Sub

约定的童话 · 发表于 2021-5-12 15:03

466798177 发表于 2021-5-12 13:45
分享一下呗

代码审核中....

		自动登录	找回密码
密码			免费注册

求一个批量导入替换内容的代码

评分