請教用VB讀取任意一個EXCEL表格的數據並顯示在listview中
我的form中有個選擇excel文件的textbox,一個選擇工作表的combobox,還有個用於顯示數據的listview，我想實現選擇工作表后就在listview中顯示所選擇的excel工作表中的數據，請幫忙看下以下代碼怎么改
總是提示 litem.SubItems(j) = xlsheet.Cells(i, j + 1) 有錯誤， 實時錯誤380，無效的屬性值
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
總是提示 litem.SubItems(j) = xlsheet.Cells(i, j + 1) 有錯誤， 實時錯誤380，無效的屬性值
1 个解决方案
#1
改成下面的試試：
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
注意！
本站转载的文章为个人学习借鉴使用，本站对版权不负任何法律责任。如果侵犯了您的隐私权益，请联系我们删除。