VB的一个问题 在线等 - VB / 基础类

listview的内容输出至excel中的一段代码
RowCnt = 2
ColCnt = 1

For i = 1 To Form6.listview1.ListItems.Count
  For j = 1 To 8
  xlSheet.Cells(RowCnt, ColCnt).Value = Form6.listview1.ListItems(i).SubItems(j)
  ColCnt = ColCnt + 1
  Next j
   
  ColCnt = 1
  RowCnt = RowCnt + 1
 Next i

i =1时能跑，但只要到最外面的for循环时，也就是i的值从1变到2时，就会报无效的属性值

各位帮忙看看

---

顶上去

---

报错会不会是针对xlSheet.Cells呢

---

单步调试，检查这句
xlSheet.Cells(RowCnt, ColCnt).Value = Form6.listview1.ListItems(i).SubItems(j)
i,j的值是否有越界。

---

xlSheet.Cells(RowCnt, ColCnt).Value = Form6.listview1.ListItems(1).SubItems(8)
到此都是可以的，但再按f8就跳到错误了

---

xlSheet.Cells(RowCnt, ColCnt).Value 怎么会报错呢？ RowCnt ColCnt 都是常量

---

我靠，居然是这原因，谢谢了 结贴