参照代码如下：结果出错！
Dim xls As String = "d:/工作簿.xls"
Dim book As new XLS.Book(xls)
Dim sheet As XLS.Sheet= book.Sheets(0)
Dim xml As String = "d:/工作簿.xml"
Try
Dim writer As New Xml.XmlTextWriter(xml, System.Text.Encoding.GetEncoding("utf-8"))
writer.Formatting = System.Xml.Formatting.Indented
'书写根元素()
writer.WriteStartElement("case")
Dim sheet2 As XLS.Sheet= book.Sheets(1) '定义打开当前工作簿中的第二个工作表
For i2 As Integer = 1 To sheet2.Rows.count -1
If sheet2(i2,0).value = sheet(i2,0).value
'添加次级元素
writer.WriteStartElement("suitDocNumber")
For j2 As Integer = 0 To sheet2.Cols.count -1
'添加子元素()
writer.WriteElementString(sheet2(0,j2).value,sheet2(i2,j2).value)
Next
'关闭次级元素DatabaseSetting
writer.WriteEndElement()
End If
Next
Dim sheet As XLS.Sheet= book.Sheets(2) '定义打开当前工作簿中的第三个工作表
For i As Integer = 1 To sheet.Rows.count -1
If sheet(i,0).value = sheet(i,0).value
'添加次级元素
writer.WriteStartElement("suitDocNumber")
For j As Integer = 0 To sheet.Cols.count -1
'添加子元素()
writer.WriteElementString(sheet(0,j).value,sheet2(i,j).value)
Next
'关闭次级元素DatabaseSetting
writer.WriteEndElement()
End If
Next
'关闭次级元素DatabaseSetting
writer.WriteEndElement()
'关闭根元素
writer.WriteFullEndElement()
'将XML写入文件并关闭writer
writer.Close()
Catch ex As Exception
MsgBox(ex.Message & vbCrLf & ex.StackTrace)
End Try
此主题相关图片如下：111.png
加好友 
发短信
Post By：2016/11/1 9:54:00 [显示全部帖子]
