html mit vba verändern
10.12.2017 16:09:34
bignnnboss@gmail.com
Sub c()
Dim IEApp As Object
Dim IEDocument As Object
Dim a As Long
On Error GoTo err_clear
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.navigate "homepage1"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Set IEDocument = IEApp.Document
Do: Loop Until IEDocument.readyState = "complete"
Do: Loop Until IEApp.Busy = False
IEDocument.getElementbyId("usernameLogin").Value = "Username"
IEDocument.getElementbyId("passwordLogin").Value = "password"
Do: Loop Until IEDocument.readyState = "complete"
IEDocument.getElementbyId("loginSubmit").Click
Do: Loop Until IEDocument.readyState = "complete"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
IEApp.navigate "homepage2"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEDocument.readyState = "complete"
IEApp.navigate "homepage3"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEDocument.readyState = "complete"
IEDocument.getElementbyId("sendall").Click
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEDocument.readyState = "complete"
IEDocument.getElementbyId("continue").Click
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEDocument.readyState = "complete"
IEDocument.getElementbyId("system").Value = 432
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEDocument.readyState = "complete"
IEDocument.getElementbyId("position").Value = 6
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEDocument.readyState = "complete"
IEDocument.getElementbyId("continue").Click
Do: Loop Until IEDocument.readyState = "complete"
Do: Loop Until IEApp.Busy = False
IEDocument.getElementbyId("button3").click
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEDocument.readyState = "complete"
Um diesen Button3 geht es. Mit Click passiert Garnichts...
IEDocument.getElementbyId("allresources").Click
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEDocument.readyState = "complete"
IEDocument.getElementbyId("start").Click
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEDocument.readyState = "complete"
err_clear:
If Err 0 Then
Err.Clear
Resume Next
End If
Set IEDocument = Nothing
Set IEApp = Nothing
End Sub
danke für eure hilfe. Ps: ich bin absoluter Neuling im bezug auf Homepage makros, also bitte verzeiht mir, falls einiges nicht den guten Techniken entspricht.