请教用VB读取任意一个EXCEL表格的数据并显示在listview中

[syfxzjh]

我的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，无效的属性值

[一如既往哈]

改成下面的试试：

    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