QTP script convertion in excel

[abhijitp]

Urgent.......
Anybody..! Can you please help me.....

Actualy I want to export all the values of a dropdown list in Excel file.
Here my code snippet attached below....

Code:

dim cnt
cnt  = Window("Flight Reservation").WinComboBox("Fly From:").GetItemsCount     '''Select "Denver"
MsgBox cnt
For i=0 to cnt-1
    Dim itm
    itm = Window("Flight Reservation").WinComboBox("Fly From:").GetItem(i)
    
    DataTable.AddSheet ("Fly From").AddParameter "Fly From", itm    DataTable.GetSheet("Fly From").SetNextRow
    datatable.ExportSheet "C:\Users\abhijitp\Desktop\result.xls", "Fly From"
    MsgBox itm
Next

But the problem is....values are being added in same row and different column. But I want to add these values in same column.
Please help me to do it.

---

Please help me to post new thread....
I have subcribed with User Name and password. But I could not find out any link to post new thread.