程序设置的是用窗口选中文件打开
读取的代码如下面。但是就有个问题，只能读取第一行。这是哪里出了问题？求助

For m = 1 To 2
  Set xlsheet = xlbook.Worksheets(m)
  For j = 1 To 60
    If xlsheet.Cells(j + 1, 1) = "" Then Exit For
    If m = 1 Then
      kk = 7
    Else
      kk = 12
    End If
    ListView1(m).ListItems.Add , , j
    For i = 1 To kk
      ListView1(m).ListItems(j).SubItems(i) = xlsheet.Cells(j + 1, i) & ""
    Next
  Next
Next

1、代码不是VB6 的代码。
2、看代码，没啥问题，关键在那个判断语句。你看看第二行满足条件不？
    If xlsheet.Cells(j + 1, 1) = "" Then Exit For
第N行，第一个格子的值是不是 空白？

解决了
原来是KK这个数定的太大了，超过了listview的列数
而在这段代码前面加了on error