使用VBA实现附件内文档按指定条件替换成需求内容

雷沛qaz · 发表于 2023-3-7 11:03

本帖最后由雷沛qaz 于 2023-3-7 11:13 编辑

使用VBA实现附件内文档按指定条件替换成需求内容，感谢大神指点。

zldccmx · 发表于 2023-3-7 12:34

雷沛qaz 发表于 2023-3-7 11:41
是xml形式，不过可以用TXT打开，实在不行，转换成txt文件，修改好后再转换成b5r格式也可以。

Sub Rep()
Dim Fn, Co, L, I
With CreateObject("Adodb.Stream")
.Type = 2
.Mode = 3
For I = 3 To 8
Fn = ThisWorkbook.Path & "\需替换文件" & Sheet2.Cells(I, 1) & ".b5r"
.CharSet = "Utf-8" 'CheckCode(Fn)
.Open
.LoadFromFile Fn
L = .Readtext
.Close
L = Replace(L, ">" & Sheet2.Cells(I, 3) & "<" & Sheet2.Cells(I, 2), ">" & Sheet2.Cells(I, 4) & "<" & Sheet2.Cells(I, 2))
L = Replace(L, Sheet2.Cells(I, 7) & ">" & Sheet2.Cells(I, 8) & "</", Sheet2.Cells(I, 7) & ">" & Sheet2.Cells(I, 9) & "</")
.Open
.WriteText L
.SaveToFile Fn, 2
.Flush
.Close
Next
End With
End Sub

复制代码

iu950 · 发表于 2023-3-7 11:32

.b5r是什么文件？

雷沛qaz · 发表于 2023-3-7 11:41

iu950 发表于 2023-3-7 11:32
.b5r是什么文件？

是xml形式，不过可以用TXT打开，实在不行，转换成txt文件，修改好后再转换成b5r格式也可以。

zldccmx · 发表于 2023-3-7 12:35

雷沛qaz · 发表于 2023-3-7 14:28

zldccmx 发表于 2023-3-7 12:35

提示文件无法被打开

雷沛qaz · 发表于 2023-3-7 16:45

zldccmx 发表于 2023-3-7 12:34

我这个运行提示无法打开，能帮忙看下什么问题吗

zldccmx · 发表于 2023-3-7 16:48

雷沛qaz · 发表于 2023-3-7 17:20

zldccmx 发表于 2023-3-7 16:48

文件再那个文件夹里

zldccmx · 发表于 2023-3-8 07:53

本帖最后由 zldccmx 于 2023-3-8 07:54 编辑

雷沛qaz 发表于 2023-3-7 17:20
文件再那个文件夹里

复制代码

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

[求助] 使用VBA实现附件内文档按指定条件替换成需求内容