Dim litem As ListItem
For i = 2 To xlsheet.UsedRange.Rows.Count
Set litem = ListView1.ListItems.Add()
litem.Text = xlsheet.Cells(i, 1)
For j = 1 To xlsheet.UsedRange.Columns.Count
litem.SubItems(j) = xlsheet.Cells(i, j + 1)
Next
Next
For i = 2 To xlSheet.UsedRange.Rows.Count
Set litem = ListView1.ListItems.Add()
litem.Text = xlSheet.Cells(i, 1)
For j = 1 To xlSheet.UsedRange.Columns.Count
With litem.ListSubItems.Add
.Text = xlSheet.Cells(i, j + 1)
End With
Next
Next
本站转载的文章为个人学习借鉴使用,本站对版权不负任何法律责任。如果侵犯了您的隐私权益,请联系我们删除。