XML 模式 - 导入模式中的新行

Question

我用 this site 中的代码创建了一个 xml 模式.

Sub Create_XSD2()


Dim StrMyXml As String, MyMap As XmlMap
   Dim StrMySchema As String
   ' Book.xml is the file created in section one of this topic.
   StrMyXml = "C:\BookData.xml"

   ' Turn off async loading.
   Application.DisplayAlerts = False
   ' Add the string to the XmlMaps collection.
   Set MyMap = ThisWorkbook.XmlMaps.Add(StrMyXml)
   Application.DisplayAlerts = True

   ' Create an empty file and output the schema.
   StrMySchema = ThisWorkbook.XmlMaps(1).Schemas(1).XML
   Open "C:\BookData2.xsd" For Output As #1
   Print #1, StrMySchema
   Close #1
End Sub

在我从 xml 文件导入数据后，所有内容都放在一行中。我怎样才能改变它？谢谢，劳伦斯

Answer 1

检查目录路径!