VBA do wprowadzania danych online i przesyłania formularza

Question

Próbuję użyć VBA do przesyłania danych z programu Excel do formularza internetowego. Problem występuje w obszarze *, w którym próbuję wybrać i zaktualizować formularz. Próbowałem różnych opcji (getelement po ID, imię itp.) Bez powodzenia. Uważam, że problem dotyczy identyfikacji odpowiedniego elementu. Widziałem porady dotyczące używania funkcji Locals w VBA, ale nie jestem pewien, jak używać tego do tego celu. Mam wrażenie, że ktoś z pewnym doświadczeniem może to bardzo szybko zrozumieć, patrząc na kod źródłowy na stronie, używając Locals w VBA lub innej techniki.

Formularz jest skonfigurowany, więc wszystkie pola są tekstowe i mogę bez problemu wprowadzić/wysłać dane online.

Z góry dziękujemy za wszelką pomoc/sugestie.

Dim IE As Object 

Sub submitFeedback3() 
Application.ScreenUpdating = False 

Set IE = CreateObject("InternetExplorer.Application") 
IE.Visible = True 
IE.Navigate "http://spreadsheetbootcamp.com/excel-efficiency-trainer-feedback/" 

Application.StatusBar = "Submitting" 
    ' Wait while IE loading... 
While IE.Busy 
DoEvents 
Wend 
********************************************************************** 
IE.Document.getElementById("Form_Attempts-1372643500")(0).Value = "1" 
IE.Document.getElementById("submit-1-1372643500")(0).Click 
********************************************************************** 
Application.StatusBar = "Form Submitted" 
IE.Quit 
Set IE = Nothing 

Application.ScreenUpdating = True 
End Sub 

Answer 1

Spróbuj poniżej kod

Dim IE As Object 

Sub submitFeedback3() 
    Application.ScreenUpdating = False 

    Set IE = CreateObject("InternetExplorer.Application") 
    IE.Visible = True 
    IE.Navigate "http://spreadsheetbootcamp.com/excel-efficiency-trainer-feedback/" 

    Application.StatusBar = "Submitting" 
    ' Wait while IE loading... 
    While IE.Busy 
     DoEvents 
    Wend 
    ' ********************************************************************** 
    delay 5 
    IE.Document.getElementById("experience-1372700847").Value = "ddddd1" 
    delay 5 
    IE.Document.getElementById("Form_Time_Best-1372700847").Value = "ddddddddddd2" 
    delay 5 
    IE.Document.getElementById("submit-1-1372700847").Click 
    '********************************************************************** 
    Application.StatusBar = "Form Submitted" 
    IE.Quit 
    Set IE = Nothing 

    Application.ScreenUpdating = True 
End Sub 

Private Sub delay(seconds As Long) 
    Dim endTime As Date 
    endTime = DateAdd("s", seconds, Now()) 
    Do While Now() < endTime 
     DoEvents 
    Loop 
End Sub