Нажав Выбрать все в этом HTML окне - PullRequest
1 голос
/ 01 апреля 2020

Помогите всем,

У меня есть код VBA, чтобы открыть изображение отчета, как показано ниже, он выберет ERX IE WORKFUSION HOA в первом раскрывающемся списке, нажмите «Просмотреть отчет» (так как это единственный способ показать параметры в раскрывающемся списке «Пользователь», а затем я хочу, чтобы он выбрал «Выбрать все» из списка пользователей. К сожалению, список пользователей не создается таким же образом в HTML, как в группе пользователей, поэтому я не могу имитировать c того, что я там сделал.

Я получаю ошибку времени выполнения 91 : Переменная объекта или переменная блока не установлена, ошибка в следующей строке внизу .document.getelementbyId ("ct132_ct104_ct107_divDropDown_ct100"). Нажмите

Sub Import_DCTR_Bot_Prod()

'Set Variables
Dim IE As InternetExplorerMedium
Dim targetURL As String
Dim webcontent As String
Dim sh
Dim eachIE

targetURL = "http://lousrswpl10:8081/Reports/Pages/Report.aspx?ItemPath=%2f12717%2fReports%2fWorkflow%2fePostRx+Detailed+Audit+Report&ViewMode=Detail"
Set IE = New InternetExplorerMedium
IE.Visible = True
IE.navigate targetURL

'Navigate to ePostRx Detailed Audit Report
While IE.Busy
    DoEvents
    Wend

Do
    Set sh = New Shell32.Shell
    For Each eachIE In sh.Windows
        If InStr(1, eachIE.LocationURL, targetURL) Then
            Set IE = eachIE
            Exit Do
            End If
        Next eachIE
    Loop
Set eachIE = Nothing
Set sh = Nothing

While IE.Busy
    DoEvents
    Wend

'Select ERX IE WORKFUSION HOA from User Group
With IE
    .Document.getElementById("ctl32_ctl04_ctl05_ddValue").Value = "42"
    .Document.Forms(0).submit
End With

With IE
    .Document.getElementById("ct132_ct104_ct107_divDropDown_ct100").Click
End With

End Sub

enter image description here

Вот что говорит HTML о фактическом флажке Выбрать все:

<INPUT onclick="$get('ctl32_ctl04_ctl07').control.OnSelectAllClick(this);" id=ctl32_ctl04_ctl07_divDropDown_ctl00 type=checkbox value="" name=ctl32$ctl04$ctl07$divDropDown$ctl00>
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...