請教用VB讀取任意一個EXCEL表格的數據並顯示在listview中


我的form中有個選擇excel文件的textbox,一個選擇工作表的combobox,還有個用於顯示數據的listview,我想實現選擇工作表后就在listview中顯示所選擇的excel工作表中的數據,請幫忙看下以下代碼怎么改

    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






注意!

本站转载的文章为个人学习借鉴使用,本站对版权不负任何法律责任。如果侵犯了您的隐私权益,请联系我们删除。



 
粤ICP备14056181号  © 2014-2020 ITdaan.com