VB Listview导出到CSV文件函数

最新推荐文章于 2018-08-11 13:19:52 发布

miaozk2006

最新推荐文章于 2018-08-11 13:19:52 发布

阅读量410

点赞数

本文链接：https://blog.csdn.net/miaozk2006/article/details/82417045

版权

该博客分享了一个VB函数ListviewToCSV，用于将ListView控件中的数据导出到CSV文件。函数接受一个ListView对象和输出文件路径作为参数，可选地导出表头。代码示例和错误处理机制也一同提供。

摘要由CSDN通过智能技术生成

示例：Call ListviewToCSV(Listview1,"C:\123.csv")

最后一个参数Encabezado决定是是否导出表头。默认是导出的。

函数代码如下：

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