数组写⼊listview
Public Sub AddHeaders(arr, ListView1 As Object)
'读⼊⼆维数组第⼀⾏写⼊到表头
'⽰例 AddHeaders arr,UserForm1.listview1
Dim i&
ListView1.ColumnHeaders.Clear
For i = 1 To UBound(arr, 2)
ListView1.ColumnHeaders.Add , , arr(1, i)
Next
End Sub
Public Sub AddList(arr, ListView1 As Object)
'读⼊⼆维数组，将第⼆⾏开始每⾏依次写⼊到listview控件中
Dim i&, j&, k&, brr
With ListView1
.ListItems.Clear              '清空列表
For i = 2 To UBound(arr, 1)
ListView1.ListItems.Add , , arr(i, 1)excel listview控件
For j = 1 To UBound(arr, 2) - 1
ListView1.ListItems(i - 1).SubItems(j) = arr(i, j + 1)
Next
Next
End With
End Sub
'⽰例 AddHeaders arr,UserForm1.listview1

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。