Beste
De volgende code herkent hij de website want geeft de messagebox weer van een website die alreeds open is (variabel). website titel is BDG gevolgd door een nummer dat telkens anders is.
Hij geeft de messagebox test weer als er de website de titel BDG heeft.
Verder zou hij dan de data die staat op de website moeten overzetten naar de userform in Excel.
Gaat dit met VBA of moet je web scraping software hiervoor hebben
De volgende code herkent hij de website want geeft de messagebox weer van een website die alreeds open is (variabel). website titel is BDG gevolgd door een nummer dat telkens anders is.
Hij geeft de messagebox test weer als er de website de titel BDG heeft.
Verder zou hij dan de data die staat op de website moeten overzetten naar de userform in Excel.
Gaat dit met VBA of moet je web scraping software hiervoor hebben
Code:
Private Sub CommandButton10_Click()
' nakijken of IE all open is.
Set objShell = CreateObject("Shell.Application")
IE_count = objShell.Windows.Count
For X = 0 To (IE_count - 1)
On Error Resume Next ' kijken of er meerdere websites open zijn
my_url = objShell.Windows(X).document.Location
my_title = objShell.Windows(X).document.Title
'Nakijken ofdat website al open is
If my_title Like "BDG" & "*" Then 'identificatie webpagina
Set IE = objShell.Windows(X)
MsgBox ("test"), vbInformation
'invullen van userform in excel aan de hand van data op webpagina --> dit werkt niet
With userform_BRC
.txtbx_requestor.Value = IE.getElementsById("sys_display.u_badge_task.u_requestor").value
End With
Exit For
Else
End If
Next
End Sub