.找不到另存为方法或数据成员

Question

我正在尝试将XML从Excel转换为MSXML2的newDoc。DOMDocument，但是每当我运行代码时，它都会突出显示.SaveAs 并表示找不到该方法或数据成员。我知道这是因为 newDoc 不是工作簿，但我还能怎么解决这个问题呢？

xslDoc.async = False
    doc.transformNodeToObject xslDoc, newDoc
    Dim Docname As String
    Dim fileSaveName As Variant
    Docname = "123_" & SN.Text
    fileSaveName = Application.GetSaveAsFilename(InitialFileName:=sItem * Docname, filefilter:="XML Files (*.xml),*xml")
   ' 
    newDoc.SaveAs Filename:=fileSaveName, FileFormat:=xlTextPrinter, CreateBackup:=False

Answer 1

您可以使用

DOMDocument 类的 save 方法(请注意，FileFormat 和 CreateBackup 不是此方法的参数(。