关于在VB中使用excel的问题

Question

上个问题解决了，再请教一个问题
我想把一个listview中的值传递到excel中应该怎样传递？
For i = 1 To ColsToOutput
    'x1sheet.cell(1, i) = Sourcelist.ColumnHeaders.Item(i) '将listview中的列名附给excel
      For j = 1 To irows
        x1sheet.cell(j, i) = Sourcelist.ListItems.Item(i)
      Next j
Next i
对于listview是否应该把列标题以及其他的值单独附给excel。不知怎样写，请各位帮帮忙！！！！

Answer 1

哥们，你漏掉了这一句
3.5  Set xlApp = CreateObject("EXCEL.Application")

Answer 2

xlapp没有初始化，在4前写Set xlApp = New Excel.Application

Answer 3

xlApp当然也要set一下了，这个很重要。