如何在vba中任意创建xml文件？

2018年5月9日 作者：水星Excel
4,688 次浏览 暂无评论

xml文件是拥有xml代码的文件。

如下是一个xml代码：

<?xml version="1.0" encoding="ISO-8859-1"?>
<note>
<to>George</to>
<from>John</from>
<heading>Reminder</heading>
<body>Don't forget the meeting!</body>
</note>

如果要将上述代码保存为xml文档，可以使用ADODB.Stream对象将xml代码写入流后另存为文件，

代码如下：

Sub QQ1722187970()
    Dim sXml As String
    sXml = "<?xml version=""1.0"" encoding=""utf-8""?>" & _
    "<note>" & _
    "<to>George</to>" & _
    "<from>John</from>" & _
    "<heading>Reminder</heading>" & _
    "<body>Don't forget the meeting!</body>" & _
    "</note>"
    Const adTypeBinary = 1
    Const adTypeText = 2
    Const adModeRead = 1
    Const adModeWrite = 2
    Const adModeReadWrite = 3
    Const adSaveCreateOverWrite = 2
    Dim oStream As Object
    '创建流对象
    Set oStream = CreateObject("ADODB.Stream")
    With oStream
    '打开流
    .Open
    '设置为文本模式
    .Type = adTypeText
    .Charset = "utf-8"
    '写入xml代码
    .WriteText sXml
    '另存为当前路径下的文件,adSaveCreateOverWrite参数表示如果存在源文件，则覆盖
    .SaveToFile "test.xml", adSaveCreateOverWrite
    '关闭流对象
    .Close
    End With
End Sub

 

其它相关文章推荐：

分类 :  VBA , XML
标签 :  ,
       

声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。如果想要每天都收到本站的技术文章推送，可以微信搜索公众号：水星Excel或者Excel_Office关注。其它事宜请加QQ：1722187970 或微信号：xycgenius 联系。 

发表评论