Быстрая и простая веб-автоматизация / очистка данных

Question

Мне нужно ввести около 3 фрагментов данных на сайт, который мне не принадлежит, нажать «Отправить» и очистить несколько фрагментов данных. Мне нужно повторить это, используя разные даты около 50 раз. Я делал это раньше для вещей, которые я много использовал с Powershell. Однако мне было интересно, можно ли использовать что-то простое, например указатель и щелчок, как если бы я тратил на это часы, и я мог бы так же легко ввести данные и скопировать результаты в электронную таблицу.

Подойдет любой браузер.

Answer 1

Вы можете попробовать использовать автоматизацию IE с использованием VBA, чтобы извлечь данные из IE и вставить их в книгу Excel.

Пример:

Sub Automate_IE_Load_Page()
'This will load a webpage in IE
    Dim i As Long
    Dim URL As String
    Dim IE As Object
    Dim objElement As Object
    Dim objCollection As Object

    'Create InternetExplorer Object
    Set IE = CreateObject("InternetExplorer.Application")

    'Set IE.Visible = True to make IE visible, or False for IE to run in the background
    IE.Visible = True

    'Define URL
    URL = "https://www.example.com"

    'Navigate to URL
    IE.Navigate URL

    ' Statusbar let's user know website is loading
    Application.StatusBar = URL & " is loading. Please wait..."

    ' Wait while IE loading...
    'IE ReadyState = 4 signifies the webpage has loaded (the first loop is set to avoid inadvertently skipping over the second loop)
    Do While IE.ReadyState = 4: DoEvents: Loop   'Do While
    Do Until IE.ReadyState = 4: DoEvents: Loop   'Do Until

    'Webpage Loaded
    Application.StatusBar = URL & " Loaded"

    'Unload IE
    Set IE = Nothing
    Set objElement = Nothing
    Set objCollection = Nothing

End Sub 

Ссылки:

(1) Автоматизация Internet Explorer (IE) с использованием VBA

(2) Веб-очистка VBA с GetElementsByTagName

(3) IE (Internet Explorer) Автоматизация с использованием Excel VBA

Далее, Вы можете попытаться изменить код в соответствии с вашими требованиями.