获取Weblist数据并输出到Excel

1.打开URL：http://newtours.demoaut.com/mercuryreservation.php
2.下面代码是获取Weblist对象中的数据并输出到Excel

ListSize = Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("fromPort").GetTOProperty("Items count")
Dim FromArray()
ReDim FromArray(ListSize - 1)

'msgbox ListSize
For i = 1 To ListSize
    FromArray(i - 1) = Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("fromPort").GetItem(i)
    WriteFile(FromArray(i - 1))
Next

Function WriteFile( ByVal Var)
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Dim fso,f
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.OpenTextFile("d:\QTP\test.xls", ForAppending, True)
    f.WriteLine Var
    f.Close
End Function