1

こんにちは私はさまざまな方法を試しましたが、成功しませんでした。このボタンでイベントをアクティブ化する方法を誰かが理解できますか？

<b>Class="palette" Title="Tilf&oslash;j" 
  onclick ="paletteAdd('databank_form_frekvens_dualListBox_choices', 
                       'databank_form_frekvens_dualListBox_selection',
                       'databank_form_frekvens_dualListBox_recorder');" 
  img src=   
  "/jobindsats/viewer/resources/com.sas.jobindsats.ui.palette.Palette/add.gif" 
  alt = "Tilf&oslash;j".</b>

これまでのコードは、最初のページの2つのボタンをクリックし、2番目のページのすべての変数をアクティブ化/選択します。しかし、選択した値を左側のボックスから右側のボックスに送信する個々の矢印ボタンをクリックできないようです。問題は、それらがすべて同じ名前、タイトルなどを持っていることです。唯一の違いはonclickイベントです...

コード：

Sub makro()
Dim IE As Object
Dim frm As Object
Dim elc As HTMLHtmlElement

Set IE = CreateObject("InternetExplorer.Application")
With IE
    .Visible = True
    .navigate "http://www.jobindsats.dk/sw167.asp"
    Do Until .readyState = 4: DoEvents: Loop
    End With

    frm.document.getElementByID("form_gruppe_maalingsgrupper_0_maalinger_1_radio").Click
        Application.Wait DateAdd("s", 1, Now)

    frm.document.getElementByID("nextbutton").Click
        Application.Wait DateAdd("s", 1, Now)

      'Ledighedstype
     frm.document.all("databank_form_forcedDimensions_0_placeholder_dual_choices").Options(1).Selected = True
        Application.Wait DateAdd("s", 2, Now)
        'doesnt work
   Set elc = frm.document.all.Title("Tilf&oslash;j")
   For Each elc In frm.document.all
   If elc.onclick = "form_gruppe_maalingsgrupper_0_maalinger_1_radio" Then
    elc.Click
   End If
 Next
End Sub
4

0 に答える 0