Van een bepaalde website had ik graag de gegevens gekopieerd naar Excel.
Bij het één en ander op te zoeken, blijkt dat dit mogelijk zou zijn via Web scraping via VBA in Excel.
De website moet geopend worden via Firefox.
Via onderstaande code lukt het al om de website te openen, maar hoe kan ik de gegevens van deze website dan inladen in Excel?
Als voorbeeld website heb ik nu de website van BeyondGaming gekozen.
Sub Test_OpenFireFoxNewTab()
OpenInFireFoxNewTab "https://www.beyondgaming.be/"
End Sub
Sub OpenInFireFoxNewTab(url As String)
Dim pathFireFox As String
pathFireFox = "C:\Program Files\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
Alvast bedankt voor de hulp
Bij het één en ander op te zoeken, blijkt dat dit mogelijk zou zijn via Web scraping via VBA in Excel.
De website moet geopend worden via Firefox.
Via onderstaande code lukt het al om de website te openen, maar hoe kan ik de gegevens van deze website dan inladen in Excel?
Als voorbeeld website heb ik nu de website van BeyondGaming gekozen.
Sub Test_OpenFireFoxNewTab()
OpenInFireFoxNewTab "https://www.beyondgaming.be/"
End Sub
Sub OpenInFireFoxNewTab(url As String)
Dim pathFireFox As String
pathFireFox = "C:\Program Files\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
Alvast bedankt voor de hulp