Click OK Button and Menue at CRM software

[Jacky81]

Hello,

I want to open a CRM Programm and to extract the datas to Excel

I have following code:

Sub OpenWindowsExplorer()

ActiveWorkbook.FollowHyperlink "F:\DeltaLine\swing\DLN.spkg",

End Sub

The file F:\DeltaLine\Swing\DLN.spkg should be open and then comes a office msg the datas could have virus would you open, this should be clicked OK and then comes a field to enter the passwort (xxxxxx) this should be fulfill automatically and click OK.
Then it should jump to the top menu line, there is the word "Strumenti" and there it should select the line "Invia ad Excel" and click OK.
Then it extrct the files in Excel and I could work with them.
Thanks.

 

[bensonsearch]

Hi,
Is this a program or a internet based CRM? (exe or use internet explorer?)

 

[Jacky81]

Hello Bensonsearch

It's a programm .exe and the file is local in "F:\DeltaLine\swing\DLN.spkg"

 

[bensonsearch]

makes it a bit hard (unless you can access the api for it) but the only way I can think of would be the send keys method. this sends whatever you wish to the active application on screen.
ie:

SendKeys ("hi")

this will print hi on the active program, you would need to send the enter key or Y key if it has a shortcut.

SendKeys ({ENTER})

will do enter key

SendKeys ("Y")

 

[Jacky81]

My complete code looks like that, but it doesn't work.
Also not with

SendKeys ({ENTER})</pre>

Sub OpenWindowsExplorer()
     
    ActiveWorkbook.FollowHyperlink "F:\DeltaLine\swing\DLN.spkg", NewWindow:=True
Application.SendKeys "{LEFT}{ENTER}", True
End Sub

 

[bensonsearch]

My complete code looks like that, but it doesn't work.
Also not with


SendKeys ({ENTER})
</PRE>

Sub OpenWindowsExplorer()
 
    ActiveWorkbook.FollowHyperlink "F:\DeltaLine\swing\DLN.spkg", NewWindow:=True
Application.SendKeys "{LEFT}{ENTER}", True
End Sub

try changing the bottom line to be

SendKeys ({LEFT} & {ENTER}), True

 

[Jacky81]

No it doesn't work.
I get a msg That the { is a invalid sign

 

[Kenneth Hobson]

Sendkeys should always be your last choice to solve a problem. It requires focus and timing to work if at all. UAC must be turned off if Vista+.

Here is another SendKeys method:

Sub test2() 
    Dim keys As String 
    Dim wsh As Object 
    AppActivate "Notepad" 
    Application.Wait Now() + TimeValue("00:00:02") 
    keys = "%f" 
    Set wsh = CreateObject("WScript.Shell") 
    wsh.SendKeys keys, True 
    Set wsh = Nothing 
End Sub