VB怎么导出数据到xml

Question

比如说我想把listbox的内容导出成xml目前最常见的是导出到txt

Answer 1

Public Sub CreateXml(xmlfile As String)
Dim XmlStr As String
Dim i As Integer
On Error Resume Next
If oPPTPres Is Nothing Then Exit Sub
XmlStr = "<?xml version='1.0' encoding='GB2312' ?>" & vbCrLf
XmlStr = XmlStr & "<Root>" & vbCrLf'XmlStr = XmlStr & "&nbsp;&nbsp;<SlideID>" & vbCrLf
For i = 1 To oPPTPres.Slides.Count
    XmlStr = XmlStr & "    <PowerPoint>" & vbCrLf
    XmlStr = XmlStr & "        <SlideID>" & i & "</SlideID>" & vbCrLf
    XmlStr = XmlStr & "        <Comments></Comments>" & vbCrLf
    XmlStr = XmlStr & "    </PowerPoint>" & vbCrLf
Next i
XmlStr = XmlStr & "</Root>" & vbCrLf
Dim a As Object
Set a = fso.CreateTextFile(xmlfile, True)
a.WriteLine (XmlStr)
a.Close
Set a = Nothing
End Sub

Answer 2

请参考导出至EXCEL的源码,在射天狼的网站上,查询MSHFlexgrid,里面有MSHFlexgrid控件导出至EXCEL的代码

Answer 3

我不是用数据控件的.就是一般的list框.
2楼的先试试.请2楼的给点注释吧.还没怎么看明白