我的excel表中有一个自定义按钮，当用户单击它时，代码允许用户上传文件，然后代码修改上传的文件，并将修改后的内容存储在String变量s中。-

Option Explicit

Sub Button1_Click()
    Dim fso As Object, ts As Object, doc As Object
    Dim data As Object, filename As String
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    ' select file
    With Application.FileDialog(msoFileDialogFilePicker)
        If .Show <> -1 Then Exit Sub
        filename = .SelectedItems(1)
    End With
    
    ' read file and add top level
    Set doc = CreateObject("MSXML2.DOMDocument.6.0")
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.OpentextFile(filename)
    doc.LoadXML Replace(ts.readall, "<metadata>", "<root><metadata>", 1, 1) & "</root>"
    ts.Close
    
    ' import data tag only
    Dim s As String
    Set data = doc.getElementsByTagName("data")(0)
    s = data.XML
    ' MsgBox s
    
    ' replace the original XML file with contents of variable s here
    
    If MsgBox(s & vbCrLf, vbYesNo) = vbYes Then
        Application.SendKeys ("%lt")
    Else
        MsgBox "Ok"
    End If
End Sub

字符串
假设我单击了该按钮并上传了一个XML文件C:/My Folder/sample.xml。现在，代码修改它，并更新文件（使用存储在变量s中的新内容）。下面是一个代表性的图片-（修改的内容是s变量的直接值）
x1c 0d1x的数据
如何实现上述目标？请引导...谢谢你，谢谢