Здравствуйте. Как уже упоминалось в столбце электронной таблицы "F", несколько лет разделяются запятой. Я хочу выбрать эти годы на веб-странице с помощью VBA. Если это единственный год, он выбирается правильно. нет, если несколько лет. Обычно в ручном методе я буду нажимать и удерживать клавишу CTRL на клавиатуре и выбрать. Если кто-то может помочь мне с идеей исправить это. Я буду чувствовать себя потрясающе.
Sub copy_project_loop()
Dim IE As Object Dim Do c As HTMLDocument Set IE = CreateObject (" InternetExplorer.Application ") Dim SHELL_OBJECT SHELL_OBJECT =" WScript.Shell "Установите objShell = CreateObject (SHELL_OBJECT)
IE .Visible = True IE .navigate" URL "
Do While IE.Busy
Application.Wait DateAdd("s", 1, Now)
Loop
Set Doc = IE.document
Для intRow = от 2 до 2
Doc.getElementById("txtTimeStudyNbr").Value = ThisWorkbook.Sheets("data").Range("A" & intRow).Value
Doc.getElementById("Search").Click
Do While IE.Busy
Application.Wait DateAdd("s", 1, Now)
Loop
Doc.getElementById("lstQualifierTypes").Value = ThisWorkbook.Sheets("data").Range("F1").Value
Doc.getElementById("Search").Click
Do While IE.Busy
Application.Wait DateAdd("s", 1, Now)
Loop
Doc.getElementById("lstQualifiers").Value = ThisWorkbook.Sheets("data").Range("F" & intRow).Value
Doc.getElementById("ADD").Click
Do While IE.Busy
Application.Wait DateAdd("s", 1, Now)
Loop
Далее
End Sub
