vba如何批量替换xml文件中指定字符间的内容并另存

jiangdongguo

，如图将text.XML文件中的数提取出来放到A列，再将B列数据替换进去，然后另存一个xml文件。代码分两部分，提取一部分，然后替换并另存一部分。麻烦给位大神帮忙，拜托了！

jiangdongguo

有会的大神吗，帮帮忙

smiletwo

smiletwo

jiangdongguo

< y >和</ y >中间的数据不是特定的，是随时变化的，而且后边还有很多组这个怎么全部查找出来放在A列，和按B列替换呀

wanghan519

替换就挺好，如果把xml补全了，可以xml解析

1. Public Sub t()
   
2.     Dim xml As Object
   
3.     Dim node As Object
   
4.     Set xml = CreateObject("MSXML2.DOMDocument")
   
5.     xml.Load ThisWorkbook.Path & "\text.XML"
   
6.     For Each node In xml.SelectNodes("//y")
   
7.         Range("A" & (Range("A65535").End(xlUp).Row + 1)).Value2 = node.Text
   
8.     Next
   
9.     '下面是替换
   
10.     Dim i&
    
11.     i = 2
    
12.     For Each node In xml.SelectNodes("//y")
    
13.         node.Text = Range("B" & i).Value2
    
14.         i = i + 1
    
15.     Next
    
16.     xml.Save ThisWorkbook.Path & "\out.xml"
    
17. End Sub

复制代码

ykcbf1100

wanghan519 发表于 2023-7-7 05:03
替换就挺好，如果把xml补全了，可以xml解析

不错，点赞！

smiletwo

jiangdongguo 发表于 2023-7-6 20:22
< y >和中间的数据不是特定的，是随时变化的，而且后边还有很多组这个怎么全部查找出来放在A列，和按B列替 ...

循环替换即可