excel 获取LISTVIEW列表中的数据

来源:转载

'LISTVIEW1中有13列

'因为LISTVIEW1中的所有数据,有可能是通过筛选得来的,可能通过搜索得来的

'所以在这里将显示在LISTVIEW1中的数据写入数组ARR中,方便处理这些数据

Dim arr

With ListView1

ReDim arr(1 To .ListItems.Count, 1 To 13)

For i = 1 To UBound(arr, 1) '遍历所有LISTVIEW1数据的行,用 For i = 1 To .ListItems.Count 也可以

arr(i, 1) = .ListItems(i).Text '第一列不一样,无法通过循环得到,只好单取

For j = 2 To 13 '遍历第i行的所有列的数据,共13列,第1列数据已取,从第2列开始

arr(i, j) = .ListItems(i).ListSubItems(j - 1).Text '将i行其他列写入数组中

Next

Next

End With

分享给朋友:
您可能感兴趣的文章:
随机阅读: