VBA Omzetten van I.E. naar Google en Firefox

[Duthsdigger]

Hallo,

Weet iemand deze VBA code Omzetten van I.E. naar Google en Firefox?

Sub Bouwjaar_Ophalen()
    Dim objNg As Object
    Dim objNgs As Object
    Dim objAtt As Object
    Dim objAtts As Object
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .Navigate "https://bagviewer.kadaster.nl/lvbag/bag-viewer/#?searchQuery=de%20kolken%2057%20drachten"
        Do
            DoEvents
            CreateObject("WScript.Shell").Popup "Dit kan enige tijd in beslag nemen.", 2, "Informatie.", vbInformation
        Loop While .Busy Or .readyState <> 4
        Application.Wait DateAdd("s", 2, Now)
        Set objNgs = .Document.getElementsByClassName("col-xs-7 ng-binding")
        For Each objNg In objNgs
            Set objAtts = objNg.Attributes
            For Each objAtt In objAtts
                If objAtt.Name = "ng-bind" And objAtt.Value = "bagObject.bouwjaar" Then
                    If Val(objNg.innertext) <> 0 Then
                         Answer(1) = objNg.innertext
                    End If
                End If
            Next
            Set objAtts = Nothing
        Next
        Set objNgs = Nothing
        .Quit
    End With
End Sub

MVG
René

 

[OctaFish]

Ik snap niet wat Google met je vraag te maken heeft. FireFox heeft geen COM optie, zoals IE (ik weet eerlijk gezegd niet of het met Edge wél kan), dus je zult dan over moeten stappen op SHELL commando's. D'r zijn natuurlijk ook wel wat parameters die je mee kan geven; die staan hier.

En dit is een voorbeeldje:

Sub Test_OpenFireFoxNewTab()
  OpenInFireFoxNewTab "http://www.mrexcel.com/forum/forumdisplay.php?f=10"
End Sub

Sub OpenInFireFoxNewTab(url As String)
  Dim pathFireFox As String
  pathFireFox = "C:\Program Files (x86)\Mozilla Firefox\firefox.exe"
  If Dir(pathFireFox) = "" Then pathFireFox = "C:\Program Files\Mozilla Firefox\firefox.exe"
  If Dir(pathFireFox) = "" Then
    MsgBox "FireFox Path Not Found", vbCritical, "Macro Ending"
    Exit Sub
  End If
  Shell """" & pathFireFox & """" & " -new-tab " & url, vbHide
End Sub

 

[Duthsdigger]

De vraag heb ik waarschijnlijk verkeerd gesteld.

Van het halen van gegevens van internet heb ik niet veel kaas van gegeten.
ik meende dat dit omgezet kon worden, vandaar.
Maar het is de bedoeling dat ik het bouwjaar van die site kan halen.

 

[OctaFish]

Desalniettemin snap ik dan nog steeds je vraag niet, want als ik de code een klein beetje aan pas om te testen, dan werkt hij prima. Dus waarom zou je 'm niet willen gebruiken?

Sub Bouwjaar_Ophalen()
Dim objNg As Object, objNgs As Object, objAtt As Object, objAtts As Object
    
    With CreateObject("InternetExplorer.Application")
        .Visible = False
        .Navigate "https://bagviewer.kadaster.nl/lvbag/bag-viewer/#?searchQuery=de%20kolken%2057%20drachten"
        Do
            DoEvents
            ''CreateObject("WScript.Shell").PopUp "Dit kan enige tijd in beslag nemen.", 2, "Informatie.", vbInformation
        Loop While .Busy Or .readyState <> 4
        Application.Wait DateAdd("s", 2, Now)
        Set objNgs = .Document.getElementsByClassName("col-xs-7 ng-binding")
        For Each objNg In objNgs
            Set objAtts = objNg.Attributes
            For Each objAtt In objAtts
                If objAtt.Name = "ng-bind" And objAtt.Value = "bagObject.bouwjaar" Then
                    If Val(objNg.innerText) <> 0 Then
                         MsgBox objNg.innerText
                         Exit Sub
                    End If
                End If
            Next
            Set objAtts = Nothing
        Next
        Set objNgs = Nothing
        .Quit
    End With
End Sub

 

[Duthsdigger]

Op het werk gebruiken zij google en weet niet of deze code ook daar werkt.
ik het zal maandag wel proberen of het daar ook werkt.

in ieder geval bedankt voor de reacties en je tijd.

mvg René