从ListView中的所有列获取项目

Question

我必须使用Visual Basic在excel文件的四列中插入四列listView。

在第一个excel列中，我想要将第一个listView列中包含的所有项目放入。在第二个Excel列中，我想将第二个listView列中包含的所有项目放在其他两列中，并且相同。

我试过这段代码：

 Dim ncella = 3
 For Each i As Integer In ListView1.Items
     oSheet.Range("B" & ncella).Value = ListView1.Items(i).Text
 ncella += 1 
 Next

但是如何才能获取listView的第二和第四列的项目？