excel - .SaveAs 方法或数据成员未找到

Question

我正在尝试将 Excel 转换中的 XML 保存为 newDoc，这是一个 MSXML2.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

您可以使用 save DOMDocument 类的方法(注意 FileFormat 和 CreateBackup 不是此方法的参数)。