Potrzebuję pomocy. Próbuję napisać skrypt VBA, który przyjmowałby wartość w kolumnie A i umieścił ją w formularzu online w elemencie wejściowym bez identyfikatora, ale nazwę („OldUrl”). Następnie skrypt VBA pobierze wartość z sąsiedniej komórki w kolumnie B i umieści ją w tej samej formie („digiSHOP”) w polu wejściowym o nazwie („NewUrl”).

Formularz znajduje się na bezpiecznym serwerze, jednak dotarłem tak daleko, jak okno się podniosło i wybrano formularz. Mam problem ze znalezieniem sposobu na ukierunkowanie pola wejściowego, ponieważ nie mają one identyfikatora. Poniżej znajduje się mój kod i dziękuję za pomoc.

Sub Redirect()
Dim IE As Object
Dim doc As Object
Dim form As Object
Dim OldURL As Object
Dim NewURL As Object

Set IE = CreateObject("InternetExplorer.Application")

With IE
    .Visible = True
    .Navigate "https://...."

    Do Until .ReadyState = 4: DoEvents: Loop

    Set doc = IE.Document
    Set form = doc.forms("digiSHOP")
    Set OldURL = doc.getElementById("OldUrl")'Error occurs here. Element has no ID
    OldURL.Value = Range("A2")
    Set NewURL = doc.getElementById("NewUrl")
    NewURL.Value = Range("B2")
    form.submit

    Do Until .ReadyState = 4: DoEvents: Loop
    Do While .Busy: DoEvents: Loop

    End With
End Sub

Nie byłem też pewien, jak kierować całą kolumnę i zapętlić ją, dlatego wartość jest ustawiana na komórkę A2. To było więcej, aby przetestować skrypt.