VBA中创建自动换行的XML文件

最新推荐文章于 2022-06-05 19:38:23 发布

软件-攻城狮

最新推荐文章于 2022-06-05 19:38:23 发布

阅读量1.6k

点赞数

分类专栏： VBA

VBA 专栏收录该内容

9 篇文章 0 订阅

订阅专栏

以下是用来测试xml文件ForTest.xml及我自己生成xml文件outPut.xml，为来往方便测试，只留下一个节点，如果有乱码，请忽略。
ForTest.xml:
<?xml version="1.0" encoding="utf-8"?>
<root>
<value>Markieren Sie dieses Kontrollkästchen, um das Herunterladen der E/A-Variablen der CIP-Symbolik zu ermöglichen.</value>
</root>

outPut.xml:
<?xml version="1.0" encoding="utf-8"?>
<root><value>Markieren Sie dieses Kontrollkästchen, um das Herunterladen der E/A-Variablen der CIP-Symbolik zu ermöglichen.</value></root>

 
      Sub  
      CreateXML() 
     
      Dim  
      fileName  
      As  
      String 
     
      Dim  
      objXML  
      As  
      Object 
     
      Set  
      objXML = CreateObject( 
      "MSXml2.DOMDocument" 
      ) 
     
      fileName =  
      "E:\ForTest.xml" 
     
      If  
      Not  
      objXML.Load(fileName)  
      Then 
     
      Err.Raise objXML.parseError.ErrorCode, , objXML.parseError.reason 
     
      End  
      If 
     
      Dim  
      point  
      As  
      Object 
     
      Set  
      point = objXML.SelectSingleNode( 
      "root" 
      ) 
     
      Dim  
      attr  
      As  
      Object 
     
      Set  
      attr = point.ChildNodes.Item(0) 
     
      'Debug.Print attr.Text 
     
      Dim  
      strOutputPath  
      As  
      String 
     
      strOutputPath =  
      "E:\outPut.xml" 
     
      Dim  
      xmldoc, rootNode, Header, messageNode, typeNode  
      As  
      Object 
     
      Set  
      xmldoc = CreateObject( 
      "MSXML2.DOMDocument" 
      ) 
     
      xmldoc.PreserveWhitespace =  
      True 
     
      Set  
      rootNode = xmldoc.createElement( 
      "root" 
      ) 
     
      Set  
      xmldoc.DocumentElement = rootNode 
     
      Set  
      Header = xmldoc.createProcessingInstruction( 
      "xml" 
      ,  
      "version='1.0' encoding='utf-8'" 
      ) 
     
      xmldoc.InsertBefore Header, xmldoc.ChildNodes(0) 
     
      Set  
      messageNode = xmldoc.createElement( 
      "value" 
      ) 
     
      rootNode.appendChild messageNode 
     
      messageNode.Text = attr.Text 
     
      xmldoc.Save strOutputPath 
     
      End  
      Sub