Help removing "sendkeys"

[IvoOvermars]

Hello,

I had to enter 3 x 1800 sudentnumbers in a webbased application (magister) by hand. I ended up writing this code and the pressure is off. Next year however the same will have to be done.

And I'm trying to optimise this. I'm using the SendKeys command and I would like to replace this with some other code. I have no clue how to do that.

Sub leerlinginvoer()
'

    ActiveCell.Copy
    Application.Wait (Now() + TimeValue("00:00:01"))
    SendKeys "%{TAB}"
    Application.Wait (Now() + TimeValue("00:00:01"))
'clear input field
    SendKeys "{BACKSPACE}"
    SendKeys "{BACKSPACE}"
    SendKeys "{BACKSPACE}"
    SendKeys "{BACKSPACE}"
    SendKeys "{BACKSPACE}"
    SendKeys "{BACKSPACE}"

   
    SendKeys "^{v}"
    Application.Wait (Now() + TimeValue("00:00:01"))
    SendKeys "{DOWN}"

    SendKeys "{enter}"
    Application.Wait (Now() + TimeValue("00:00:01"))


Do Until ActiveCell = NullString
    'nieuwe cell
   
    ActiveCell.Copy
    SendKeys "%{TAB}"
    Application.Wait (Now() + TimeValue("00:00:01"))
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Copy
    Application.Wait (Now() + TimeValue("00:00:01"))
    SendKeys "%{TAB}"
    Application.Wait (Now() + TimeValue("00:00:01"))
    SendKeys "{BACKSPACE}"
    SendKeys "{BACKSPACE}"
    SendKeys "{BACKSPACE}"
    SendKeys "{BACKSPACE}"
    SendKeys "{BACKSPACE}"
    SendKeys "{BACKSPACE}"

    SendKeys "^{v}"
    Application.Wait (Now() + TimeValue("00:00:01"))
    SendKeys "{DOWN}"

    SendKeys "{enter}"
    Application.Wait (Now() + TimeValue("00:00:01"))
   
Loop


MsgBox "Next"
  
End Sub

 

[Anthony47]

If you could share the url of the web service that you use, and we could get access to the same service as you do, we could develop a way for interacting with the web page; for example as we did in this recent discussion: extract info from website.

But I suspect this is impossible...
You could try to attach the html source code of the page you need to interact with, along with a screenshot with the layout of the interaction mask, but it'll be difficult to get a result without access to the page, as these are "try and error" developments.

A simple speed advance could be obtained by using Sleep to schedule waiting states for few millisecs to hours; I guess that very often a Sleep(100) (wait 0.1 sec) can replace your many Wait 1 sec

To use the Sleep function you have first to declare it on top of the vba Module:

#If VBA7 Then
    Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
#Else
    Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

Then you may replace your several Application.Wait (Now() + TimeValue("00:00:01")) with

Sleep (100)        '100=100 msec; adjust this delay to cope with the situation

Bye

 

[IvoOvermars]

Magister voor onderwijzend personeel

corderius.magister.net

I have to enter the numbers in the "Deelnemers" field. A dropdownmenu will appear and Ihave to select the student I want to select. My number is complete so I never have more then one match.

 

[Anthony47]

You passed us the url of the page where we could log-in, if only we were Corderius College members...
So, either give us some valid credentials to login, OR you should copy here the "html source code" of the page that you interact with after the login; normally you get this by right click on the web page, the choose "Display source code" or something similar.
Also try loading a high resolution image (we need to read the headers of the filelds, at least)

Bye