Display values for Fly From and Fly To dropdown values to Excel sheet

Option Explicit

Dim flyFromCnt,itemNum

Window("Flight Reservation").Activate

flyFrmCnt=window("Flight Reservation").WinComboBox("Fly From:").GetItemsCount

For itemNum=0 to flyFrmCnt - 1

          datatable.SetCurrentRow(itemNum)

          datatable("FlyFrom",1)=Window("Flight Reservation").WinComboBox("Fly From:").GetItem(itemNum)

          datatable("FlyTo",1)=window("Flight Reservation").WinComboBox("Fly To:").GetItem(itemNum)

Next

Contributed by: Vamshi Gowtham
m.vamsigowtham@gmail.com