Ввод данных в Google Forms с использованием Excel VBA - PullRequest
Новая
       38

Ввод данных в Google Forms с использованием Excel VBA

0 голосов
/ 11 апреля 2020

Я хочу найти имя элемента кнопки «Отправить», но не могу его найти, поэтому мой код VBA для ввода данных в формы Google не может отправить данные на страницу Google.

Как отправить данные из форм Google на лист Google с помощью Excel VBA?

Точка ошибки:

IE .document.forms ("mG61Hd") .elements ("appsMaterialWizButtonPaperbuttonLabel QuantWizButtonPaperbuttonLabel exportLabel"). Нажмите.

Описание ошибки: время выполнения '424': требуется объект 

Sub gsheet()

Dim IE As New SHDocVw.InternetExplorer

Application.ScreenUpdating = False

IE.Visible = True


IE.Navigate "https://docs.google.com/forms/d/e/1FAIpQLSe4DEiAh_c4tqkAYfFbxa0-nvDZ6z6lAvqWjej6nC8zkd23AA/viewform?edit2=2_ABaOnud0G03Alxml_dveK7L_nxFl559_0KO9qqike9Q3P_dBhcCLu5DKFUWtm_qgIPYdexg"

Do While IE.readyState <> READYSTATE_COMPLETE Or IE.Busy
    DoEvents
Loop

'Application.Wait Now + TimeSerial(0, 0, 5)

IE.document.forms("mG61Hd").elements("entry.1316764865").Value = "aa"
IE.document.forms("mG61Hd").elements("entry.1510402835").Value = "bb"
IE.document.forms("mG61Hd").elements("entry.2071884814").Value = "cc"
IE.document.forms("mG61Hd").elements("entry.1876497684").Value = "dd"
IE.document.forms("mG61Hd").elements("appsMaterialWizButtonPaperbuttonLabel quantumWizButtonPaperbuttonLabel exportLabel").Click

Do While IE.readyState <> READYSTATE_COMPLETE Or IE.Busy
    DoEvents
Loop

End Sub
...