excel 取得LISTVIEW下文中的数据|萝卜系统

Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使Excel成为最流行的个人计算机数据处理软件。

‘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

Excel整体界面趋于平面化，显得清新简洁。流畅的动画和平滑的过渡，带来不同以往的使用体验。

……

标签:excel 取得LISTVIEW下文中的数据