excel 获取LISTVIEW列表中的数据

excel 获取LISTVIEW列表中的数据

‘LISTVIEW1中有13列

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

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

Dim arrWith ListView1ReDim 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行其他列写入数组中NextNextEnd With

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。