PDA

View Full Version : click button via vba



Detox
02-21-2018, 02:09 AM
hi guys, i try to click a button via vba on the site https://rechner.soziale-sicherheit-chss.ch/lebenslang/

could anyone help please?


my coding so far:


Sub test()


Dim x As Workbook
Dim IE As Object

ThisWorkbook.Activate

Application.ScreenUpdating = False

Set x = ActiveWorkbook
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "https://rechner.soziale-sicherheit-chss.ch/lebenslang/"

Application.StatusBar = "Submitting"
' Wait while IE loading...
While IE.Busy
DoEvents
Wend
' **********************************************************************
delay 1
IE.Document.getElementById("SpousePension").Value = "hola"
delay 1
IE.Document.getElementById("AwardedPensionAmount").Value = "ddddddddddd2"
delay 1
IE.Document.getElementById("SexSpouse").Value = "Mann"
delay 1
IE.Document.getElementById("Sex").Value = "Mann"
delay 1
IE.Document.getElementById("DateOfDivorceJudgment").Value = "12.12.1985"
delay 1
IE.Document.getElementById("SpousePension").Value = "Erich"
delay 1
IE.Document.getElementById("DateOfBirth").Value = "12.12.1985"
delay 1
IE.Document.getElementById("DateOfBirthSpouse").Value = "12.12.1985"
delay 2

IE.Document.getElementsByClassName("btn btn-primary pull-right persistent")(0).Click

End Sub