读取 excel，不能读全

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

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