Question

我有下面的xml文件;

<?xml version="1.0" encoding="UTF-8"?>
<response><XXX><id>1</id></XXX></response>

我想从文件中删除XML标头<?xml version="1.0" encoding="UTF-8"?>，使xml文件看起来像这样;

<response><XXX><id>1</id></XXX></response>

如何使用Excel VBA完成此操作？

这样做的目的是通过LoadXML（）函数将无标题字符串加载到MSXML2.DOMDocument对象中。

谢谢。

Answer 1

您可以使用Replace功能...

Dim DoubleQuote : DoubleQuote = Chr(34)
Dim strHeader : strHeader = "<?xml version=" & DoubleQuote & "1.0" & DoubleQuote & " encoding=" & DoubleQuote & "UTF-8" & DoubleQuote & "?>"
Result = replace(strHeader,strHeader,"")
If Result = "" then
  MsgBox "Header stripped!"
Else
  MsgBox "Failed to strip header."
End If

希望有所帮助！

使用VBA删除XML标头

1 个答案: