代码如下：
Dim objApp
Dim inputname
Dim listview

inputname=InputBox (" new execel file name ","execel file name")
Set objApp=CreateObject("Excel.Application")
objApp.Visible=True
objApp.Workbooks.Open "d:\xxxx\query.xls"
Set listview=ScreenItems("listview1")
Dim sitems
Set sitems=listview.listitems

Dim i
For i=1 To 60
objApp.WorkSheets("Sheet1").cells(i,2).value=sitems.subitems(i)
objApp.WorkSheets("Sheet1").cells(i,4).value=sitems.subitems(i+1)
objApp.WorkSheets("Sheet1").cells(i,5).value=sitems.subitems(i+2)
Next