• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Intersect and extract data from another application using VBA

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]
1714906964079.png



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

1714906765036.png



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

1714906834701.png


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
 
Dear Friends,

Good day!


Here I found the solution;


>>> use code - tags <<<
Code:
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
 
Last edited by a moderator:
Back
Top