使用VBA将附件插入到XML标记

Sub InsertAttachmentToXML()
    Dim attachmentPath As String
    Dim attachmentContent As String
    Dim xmlDoc As Object
    Dim attachmentNode As Object
    
    ' 读取附件文件
    attachmentPath = "C:\path\to\attachment.txt"
    Open attachmentPath For Input As #1
    attachmentContent = Input$(LOF(1), 1)
    Close #1
    
    ' 创建XML文档
    Set xmlDoc = CreateObject("MSXML2.DOMDocument")
    
    ' 创建附件节点
    Set attachmentNode = xmlDoc.createElement("Attachment")
    
    ' 将附件内容插入到节点中
    attachmentNode.Text = attachmentContent
    
    ' 将附件节点添加到XML文档中
    xmlDoc.appendChild attachmentNode
    
    ' 保存XML文档到文件
    xmlDoc.Save "C:\path\to\output.xml"
    
    ' 清理对象
    Set attachmentNode = Nothing
    Set xmlDoc = Nothing
    
    MsgBox "附件已成功插入到XML标记中并保存为output.xml文件。"
End Sub