发布于 2008-09-11 16:02:18
0楼
谢谢你啊,我测试通过了,用下面的语句替换原来的循环语句
For Each oItem In ListView1.ListItems
irow = irow + 1
xlSheet.Cells(irow + 2, 1).Value = oItem
xlSheet.Cells(irow + 2, 2).Value = oItem.SubItems(1)
xlSheet.Cells(irow + 2, 3).Value = oItem.SubItems(2)
xlSheet.Cells(irow + 2, 4).Value = oItem.SubItems(3)
xlSheet.Cells(irow + 2, 5).Value = oItem.SubItems(4)
xlSheet.Cells(irow + 2, 6).Value = oItem.SubItems(5)
Next
承接自动化项目编程、设计、调试。
QQ:8304368