web-dev-qa-db-ja.com

ボタンに「名前」が関連付けられていない場合、Excel VBAを使用してInternet Explorerのボタンをクリックします。

Excelを使用してタイムシートに入力する値を自動化しようとしています。タイムシートはウェブページにあります。現在、ページをロードし、ユーザー名とパスワードを入力してから、タイムシートを単独で入力できます。以下のコードを参照してください。

この時点で、ボタンをクリックしてサブフォームを開く必要があります。開くサブフォームの数が事前にわかりません。 「名前」があるボタンをクリックする方法を知っています。しかし、この場合はありません。したがって、以下の更新されたコードでは、ループを使用して他のすべてのサブフォームを開きます。初めて動作しますが、もう一度実行すると

誰かが私にページにあるそれらのボタンの数を決定する方法とそれぞれをクリックする方法を教えてもらえますか？これまでに持っていたコードとその下に、操作する必要があるページのHTMLコードを配置します。

Private Sub time_sheet_filling()

    Dim I As Long
    Dim IE As Object
    Dim doc As Object
    Dim objElement As Object
    Dim objCollection As Object

    ' Create InternetExplorer Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True

    ' Send the form data To URL As POST binary request
    IE.navigate "http://timesheet.cccc.ca/timesheet/"

    ' Wait while IE loading...
    Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)
    Loop

        'Load the logon page
    Set objCollection = IE.Document.getElementsByTagName("input")
    I = 0
    While I < objCollection.Length
        If objCollection(I).Name = "txtUserName" Then
            ' Set text to enter
            objCollection(I).Value = "6666"
        End If
        If objCollection(I).Name = "txtPwd" Then
            ' Set text for password
            objCollection(I).Value = "password"
        End If
        If objCollection(I).Type = "submit" And objCollection(I).Name = "btnSubmit" Then ' submit button clicking
            Set objElement = objCollection(I)
        End If
        I = I + 1
    Wend

    objElement.Click    ' click button to load the form

    ' Wait while IE re-loading...
    Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)
    Loop

    ' Show IE
    IE.Visible = True  
Dim links, link
Dim n, j
Set links = IE.Document.getElementById("dgTime").getElementsByTagName("a")
n = links.Length  
For j = 0 To n - 1 Step 2
    links(j).Click
'I have some operations to be done will post another question for this
IE.Document.getElementById"DetailToolbar1_lnkBtnSave").Click              'save
IE.Document.getElementById"DetailToolbar1_lnkBtnCancel").Click            'close
Next



End Sub

Htmlコードの抜粋は以下のとおりです。以下のHTMLコードの最終行にコード化されているボタンをクリックしようとしています

<table width="984" class="Grid" id="dgTime" border="1" rules="all" cellspacing="0">
  <tbody>
    <tr class="GridHeader">
    </tr>
    <tr class="GridItem">
    </tr>
    <tr class="GridItem">
      <td class="GridButtonColumn">
        <a href="javascript:__doPostBack('dgTime$_ctl2$_ctl0','')">
          <img src="images/toolbar/b_edit.gif">
        </a>
      </td

答えはTx Timです。これで、最初のサブフォームボタンを選択して開くことができます。

links(j).click   'j = 0

次に、それを保存して閉じ、メインフォームに戻ります。しかし、私がやろうとすると

links(j).click   'j = 2 this time

2回目に実行時エラー70が発生しました。権限が拒否されました。もはや親切な助けがとても感謝されます。よろしく

htmlexcelvbainternet-explorerweb-scraping
4
excelguigui11

ティム・ウィリアムズの親切な助けを借りて、私はついに行方不明だった最後の詳細を見つけました。以下が最終的なコードです。

Private Sub Open_multiple_sub_pages_from_main_page()


Dim i As Long
Dim IE As Object
Dim Doc As Object
Dim objElement As Object
Dim objCollection As Object
Dim buttonCollection As Object
Dim valeur_heure As Object


' Create InternetExplorer Object
Set IE = CreateObject("InternetExplorer.Application")
' You can uncoment Next line To see form results
IE.Visible = True

' Send the form data To URL As POST binary request
IE.navigate "http://webpage.com/"

' Wait while IE loading...
While IE.Busy
        DoEvents
Wend


Set objCollection = IE.Document.getElementsByTagName("input")

i = 0
While i < objCollection.Length
    If objCollection(i).Name = "txtUserName" Then
        ' Set text for search
        objCollection(i).Value = "1234"
    End If
    If objCollection(i).Name = "txtPwd" Then
        ' Set text for search
        objCollection(i).Value = "password"
    End If

    If objCollection(i).Type = "submit" And objCollection(i).Name = "btnSubmit" Then ' submit button if found and set
        Set objElement = objCollection(i)
    End If
    i = i + 1
Wend
objElement.Click    ' click button to load page

' Wait while IE re-loading...
While IE.Busy
        DoEvents
Wend

' Show IE
IE.Visible = True
Set Doc = IE.Document

Dim links, link

Dim j As Integer                                                                    'variable to count items
j = 0
Set links = IE.Document.getElementById("dgTime").getElementsByTagName("a")
n = links.Length
While j <= n                                    'loop to go thru all "a" item so it loads next page
    links(j).Click
    While IE.Busy
        DoEvents
    Wend
    '-------------Do stuff here:  copy field value and paste in Excel sheet.  Will post another question for this------------------------
    IE.Document.getElementById("DetailToolbar1_lnkBtnSave").Click              'save
    Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)                                   'wait
    Loop
    IE.Document.getElementById("DetailToolbar1_lnkBtnCancel").Click            'close
    Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)                                   'wait
    Loop
    Set links = IE.Document.getElementById("dgTime").getElementsByTagName("a")
    j = j + 2
Wend    
End Sub
4
excelguigui11

CSSセレクター：

img[src='images/toolbar/b_edit.gif']のCSSセレクターを使用する

これは、属性imgの値が'images/toolbar/b_edit.gif'のsrcタグを持つ要素を選択することを示しています。

CSSクエリ：

CSS query

VBA：

documentの.querySelectorメソッドを使用してセレクターを適用できます。

IE.document.querySelector("img[src='images/toolbar/b_edit.gif']").Click
2
QHarr
IE.Document.getElementById("dgTime").getElementsByTagName("a")(0).Click

編集：コレクションをループします（アイテムはソースドキュメントと同じ順序で表示されます）

Dim links, link 

Set links = IE.Document.getElementById("dgTime").getElementsByTagName("a")

'For Each loop
For Each link in links
    link.Click
Next link

'For Next loop
Dim n, i
n = links.length
For i = 0 to n-1 Step 2
    links(i).click
Next I
2
Tim Williams