Intersect and extract data from another application using VBA

[Mehmud Khan]

Dear Team,

Good day!

I need your assistance in a project.

In our travel agency firm, we are using a command based online application (name is "Zorada") which is provided by vendor. Wherein, if we give any specific command [examples given below] then application give some output.

Example:
If we need to know the list of all airport of any specific country then command will be "DACXX" [whereas XX indicates 2 letter country code] then, that application will give us detailed response in paragraph format within the application. (which can be copied using Ctrl+A)


[I need to press "Shift+F2" then input box will open then I have inserted DACIN and hit Enter, then application given me below command]



So, I already have the list of command in excel as below;





The magic which I need that excel should connect with that application and fill as below;




Please assume, the application is already opened and no need to open from beginning using "Shell" VBA codes, "AppActivate" will work.

Request all to please help me in this case.


Regards,
Mehmud

 

[Mehmud Khan]

Dear Friends,

Good day!


Here I found the solution;


>>> use code - tags <<<

Sub NewTest()

ActiveCell.Clear
ActiveCell.Offset(0, -2).Copy
AppActivate ("Zaroda"), 10
SendKeys ("+{F2}"), 10
SendKeys ("^v"), 10
SendKeys ("{ENTER}"), 10
SendKeys ("+{F2}"), 10
Application.Wait (Now + TimeValue("00:00:01"))
ActiveCell.Offset(0, -1).Copy
SendKeys ("^v"), 10
SendKeys ("{ENTER}"), 10
SendKeys ("^a"), 10
SendKeys ("^c"), 10
Application.Wait (Now + TimeValue("00:00:01"))
ClipboardToCell ActiveCell

End Sub