用excel里的VBA给xml加文件头

Question

现有一个从数据库中导出为xml的文件，内容如下：
__________________________________________
<drug_store.dbo.dept_dict><dept_no>01  </dept_no><dept_name>综管部    </dept_name><input_code>zgb       </input_code></drug_store.dbo.dept_dict>
__________________________________________
该文件缺少了xml文件的文件头：
<?xml version="1.0" encoding="gb3212"?>
我现在需要在excel中写代码把这个文件头加进去，望各位高手帮助。
PS，几年不做程序了，现在的论坛搜索又实在找不到相关的内容，请各位高手写的通俗点，不胜感激。

Answer 1

我现在是在按钮里这么写的：
Private Sub CommandButton1_Click()
         
        Dim xmlDom     As New DOMDocument  '这句就报错了，编译错误，用户类型未定义
        Dim xmlNode     As IXMLDOMElement
           
        xmlDom.Load ("d:\xml\test.xml")        
        Set oNode = xmldoc.createProcessingInstruction("xml", "version='1.0'   encoding='GB2312'")
        Set oNode = xmldoc.insertBefore(oNode, xmldoc.childNodes.Item(0))End Sub

Answer 2

哦，我加上了xml v6.0的库之后，报运行时错误'424' 要求对象