用户登录  |  用户注册
首 页源码下载网络学院最新源码源码排行屏蔽广告
当前位置:新兴网络 > 网络学院 > 编程开发 > Visual Basic

VB Listview导出到CSV文件函数

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2011-12-08 01:03:28
示例:
Call ListviewToCSV(Listview1,"C:\123.csv")
最后一个参数Encabezado决定是是否导出表头。默认是导出的。

VBScript code复制代码
Public Function ListviewToCSV(ListView As ListView, sFile As String, Optional Encabezado As Boolean = True) As Boolean
    On Error GoTo ContErr
    If ListView.ListItems.Count = 0 Then Exit Function
   
    Dim i As Long, j As Long
    Open sFile For Output As #1
    If Encabezado = True Then
        For i = 1 To ListView.ColumnHeaders.Count
            Print #1, ListView.ColumnHeaders(i).Text & ",";
        Next i
        Print #1,
    End If
    For i = 1 To ListView.ListItems.Count
        Print #1, ListView.ListItems(i) & ",";
        For j = 1 To ListView.ColumnHeaders.Count - 1
            Print #1, ListView.ListItems(i).SubItems(j) & ",";
        Next
        Print #1,
    Next i
    Print #1,
    ListviewToCSV = True
    Close #1
    Exit Function
ContErr:
    MsgBox Err.Description
End Function

Tags:Listview CSV 导出

作者:佚名
  • 好的评价 如果您觉得此文章好,就请您
      0%(0)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

网络学院评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论