主题：知不知道这样的XML格式是怎么做出来的?

   <Authors_Table>
  <authors>
    <作者ID>172-32-1176</作者ID>
    <姓>王</姓>
    <名>静静</名>
    <城市>上海</城市>
    <合同>true</合同>
  </authors>
  <authors>
    <作者ID>213-46-8915</作者ID>
    <姓>王</姓>
    <名>亮</名>
    <城市>北京</城市>
    <合同>true</合同>
  </authors>
  <authors>
    <作者ID>238-95-7766</作者ID>
    <姓>乌</姓>
    <名>颖影</名>
    <城市>哈尔滨</城市>
    <合同>true</合同>
  </authors>
  <authors>
    <作者ID>238-95-7769</作者ID>
    <姓>刘</姓>
    <名>艳春</名>
    <城市>哈尔滨</城市>
    <合同>true</合同>
  </authors>
  <authors>
    <作者ID>274-80-9391</作者ID>
    <姓>张</姓>
    <名>彩云</名>
    <城市>吉林</城市>
    <合同>true</合同>
  </authors>
</Authors_Table>

 我想从EXCEL 导出到这个格式.

 Dim App As New Application
            Dim Wb As Workbook = App.Workbooks.Open("E:\美奥口腔办公系统1\hggh.xls")
            Dim Ws As Worksheet = Wb.Worksheets(1)

 Dim writer As New Xml.XmlTextWriter(xml, System.Text.Encoding.GetEncoding("utf-8"))
                '书写根元素()
                writer.WriteStartElement("ceshi")
                For i As Integer = 1 To Ws.Rows.Count - 1
                    '添加次级元素
                    writer.WriteStartElement("authors")
                    For j As Integer = 0 To Ws.Columns.Count - 1
                        '添加子元素()
                        MessageBox.Show(Ws.Cells(i, j).Value)   '这一句通不过是什么原因
                        '  writer.WriteElementString(Ws.Cells(0, j).Value, Ws.Cells(i, j).Value)
                        ' writer.WriteElementString(Ws.Cells(0, j).value, Ws.Cells(i, j).value)
                    Next
                    '关闭次级元素DatabaseSetting
                    writer.WriteEndElement()
                Next

 这个是写入字符串.