Сохранение XML-файла с определенным именем в определенном месте пути в VBA

Question

Я написал некоторый код, который преобразует мой файл Excel в форму данных XML, однако я не могу найти способ сохранить новый документ в определенном месте с определенным именем.

До сих пор я пытался найти такие, которые дадут мне возможность сохранить имя файла, однако все, что я нашел до сих пор, позволит мне ввести путь только при попытке сохранить его.Как и в Document.Save, «Путь» позволит мне сохранить только путь к папке и не сохранит имя файла, которое я сохранил в переменной.

xslDoc.LoadXML "<?xml version=" & Chr(34) & "1.0" & Chr(34) & "?>" _
            & "<xsl:stylesheet version=" & Chr(34) & "1.0" & Chr(34) _
            & "                xmlns:xsl=" & Chr(34) & "http://www.w3.org/1999/XSL/Transform" & Chr(34) & ">" _
            & "<xsl:strip-space elements=" & Chr(34) & "*" & Chr(34) & " />" _
            & "<xsl:output method=" & Chr(34) & "xml" & Chr(34) & " indent=" & Chr(34) & "yes" & Chr(34) & "" _
            & "            encoding=" & Chr(34) & "UTF-8" & Chr(34) & "/>" _
            & " <xsl:template match=" & Chr(34) & "node() | @*" & Chr(34) & ">" _
            & "  <xsl:copy>" _
            & "   <xsl:apply-templates select=" & Chr(34) & "node() | @*" & Chr(34) & " />" _
            & "  </xsl:copy>" _
            & " </xsl:template>" _
            & "</xsl:stylesheet>"
    xslDoc.async = False
    doc.transformNodeToObject xslDoc, newDoc
    Dim Docname As String

    Docname = "VMM_" & SN.Text
    fileSaveName = GetSaveAsFilename(InitialFileName:=sItem * Docname, filefilter:="XML Files (*.xml),*xml")
    newDoc.SaveAs Filename:= fileSaveName, FileFormat:=xlTextPrinter, CreateBackup:False

Я нашел код, который помог мне преобразовать мой кодв XML, который является первой частью этого, однако я не могу узнать, как использовать SaveAs с newDoc, который является MSXML2.DOMDocument60.Я пытаюсь сохранить его с именем файла Docname, в месте, которое называется sItem, любая помощь будет принята с благодарностью