我用thissite中的代码创建了一个xml模式.SubCreate_XSD2()DimStrMyXmlAsString,MyMapAsXmlMapDimStrMySchemaAsString'Book.xmlisthefilecreatedinsectiononeofthistopic.StrMyXml="C:\BookData.xml"'Turnoffasyncloading.Application.DisplayAlerts=False'AddthestringtotheXmlMapscollection.SetMyMap=ThisWorkbook.XmlMaps.Add(Str