我正在尝试使用excel来自动输入时间表中的值。时间表在网页上。 现在我可以加载页面,输入我的用户名和密码,然后自己输入时间表。见下面的代码。
I'm trying to use excel to automate the value entering in a time sheet. The time sheet is on a web page. Right now I'm able to load the page, enter my username and password and then entering the time sheet by itself. See code below.
此时,我需要点击一个按钮打开子表单。我不能提前知道会有多少个子表单打开。我知道当它有一个名称时如何点击一个按钮。但在这种情况下,没有。所以我以下更新的代码使用一个循环来打开每个其他子窗体。它是第一次工作,但是当我再次执行
At this point I need to click on a button to open sub-forms. I can't know in advance how many sub-forms there will be to open. I know how to click on a button when it has a "name". But in this case there's none. So my updated code below use a loop to open every other subform. It works the first time, but when I do it again
有人可以指出我如何确定页面中有多少按钮,以及如何点击每个按钮? 在我放置代码之前,我直到现在和下面的代码,我需要交互的页面的HTML代码。
Could someone point me how to determine how many of those button there is in the page and how to click on each? Following I'm placing the code I have until now and below it, the HTML code of the page I need to interact with.
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 "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代码最后一行编码的按钮。
So extract of the html code is below. I'm trying to click the button that is coded in the last line of the html code below
<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> </tdTx Tim的答案。现在我可以选择第一个子窗体按钮来打开它。
Tx Tim for the answers. Now I'm able to select the first subform button to open it.
links(j).click 'j = 0然后我保存它,关闭,然后回到主窗体。但是当我尝试做
I then save it, close, and come back to the main form. But then when I try to do
links(j).click 'j = 2 this time第二次得到运行时错误70:权限被拒绝。任何友善的帮助将不胜感激。 注意事项
the second time I get a runtime error 70: permission denied. Anymore kind help will be so appreciated. Regards
推荐答案在蒂姆·威廉姆斯的帮助下,我终于想出了最后一次丢失的détails。以下是下面的最终代码。
With the kind help from Tim Williams, I finally figured out the last détails that were missing. Here's the final code below.
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 "webpage/" ' 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更多推荐
使用Excel VBA单击Internet Explorer中的按钮,当该按钮没有“名称”相关
发布评论